求助： 请问这个程序怎么修改
本帖最后由 苍风 于 2012-8-8 15:27 编辑(defun c:zk()
(setvar "osmode" 0)
(setq p0 (getpoint "输入基点:"))
(setq a (getdist "高度:"))
(setq b (getdist "宽度:"))
(setq c (getdist "内径:"))
(setq d (getdist "板厚:"))
(setq p1 (polar p0 (* pi 1.5) a))
(setq p2 (polar p1 0 b))
(setq p3 (polar p2 (/ pi 2) a))
(setq p4 (polar p0 pi (/ d 2)))
(command "pline"p0 p1 p2 p3 "" )
(setq ent1 (entlast))
(command "fillet""r" c "fillet" "p" ent1 "")
(command "pline" p0 p4 "" )
(setq ent2 (entlast))
(command "offset" "t" ent1 p4 "" )
(setq k(car ent3))
(setq f (vlax-ename->vla-object k)) ;取得
线段长度
(vla-get-Length f) ;显示
长度尺寸
(setvar "osmode" 567) ;捕捉
还原
(prin1)
)
(prompt ":\筒形")
(prin1)
加上了取消捕捉后可以成功绘出图形了，
后面我又加了几句想自动显示偏移后直线ent3的长度，
但是又出现了新问题 错误: 参数类型错误: consp <图元名: 7ef6c350>
请教高手该怎么解决？
建议关闭补捉再试
若仍不合所求,请告知程序运行时 User 该回应的各个合理值 Andyhon 发表于 2012-8-3 11:14 static/image/common/back.gif
建议关闭补捉再试
若仍不合所求,请告知程序运行时 User 该回应的各个合理值
非常感谢你，关闭补偿后果然没问题了。 不开启 捕捉，是可以画出图形的
页:
[1]