求助： 请问这个程序怎么修改

苍风

(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>
请教高手该怎么解决？

Andyhon

建议关闭补捉再试

若仍不合所求,请告知程序运行时 User 该回应的各个合理值

苍风

Andyhon 发表于 2012-8-3 11:14
建议关闭补捉再试

若仍不合所求,请告知程序运行时 User 该回应的各个合理值

非常感谢你，关闭补偿后果然没问题了。

zmzk

不开启 捕捉，是可以画出图形的