CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 1155|回复: 1

[求助] 求高手帮我看看

[复制链接]
发表于 2010-1-13 08:29 | 显示全部楼层 |阅读模式
请教高手,这个程序就是画条线,看看哪有问题,运行时CAD提示参数太少,
7 w- F+ u& ~7 B, a2 t(defun c:cv(/pa pb)
! I3 c5 j1 F" G1 ?* L; g6 g            (setvar"cmdecho"0)! B, ^0 ]' L9 ~+ B0 [5 b. p
            (setq pa(getpoint"enter left/low point:"))
5 R3 W( Q0 N9 }! x            (set ww(getdist pa"width:"))
$ P9 s0 v1 ?) |0 j2 i( q            (setq pb(polar pa 0 ww))! u. X: p9 b; c, n8 L8 j6 n
             ("line"pa pb"")
* j$ Q& L* [" |& f0 Z" |$ N* w             (prin1)
1 S4 D+ g9 R3 _; U; z)$ x  @- ~: I6 o6 n$ q/ D* X
(prin1)
 楼主| 发表于 2010-1-13 08:31 | 显示全部楼层
setq中少个q,自己先找个,继续啊
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-2-21 03:06

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表