求关于画梁附加三道箍筋的lisp疑问

一叶舟

依次选择次梁与主梁的两个交点，再选一个主梁线上的垂足点。用到简单的lisp语句。
存在缺点：1，绘制速度有点慢，屏幕上有明显的绘图痕迹。2，选择第三点时垂足捕捉经常失败。求指点。
;三道箍筋绘制
(defun c:3dg ( / pt)
(VL-LOAD-COM)
(setq oce (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(setvar "clayer" "0")
(setq p "")
(while p
  (setq p (getpoint "\n依次选择表明次梁宽及主梁宽的三点"))
  (setq pt (append pt (list p)))  
)
(setq p1 (nth 0 pt))
(setq p2 (nth 1 pt))
(setq p3 (nth 2 pt))
  (setq dd (distance  p1 p2))
(command  "pline" p2 "w" 35 35 p3 "")
(command "offset" "E" "Y" (+ dd 70) (entlast) p1"");
(command "offset" "E" "N"(+ dd 140) (entlast) p2"");
(command "offset" (+ dd 210) (entlast) p1"")
(command "offset" (+ dd 280) (entlast) p2"")
(command "offset" (+ dd 350) (entlast) p1"")
(command "offset" (+ dd 420) (entlast) p2"");
(setvar "CMDECHO" oce)
)


;-----------------------------------------
;   function dxf_read
;-----------------------------------------
;返回dxf群码内组码号为code的点对内容
;参数：ename -- 一个对象的id
;         code  -- dxf组码号
;-----------------------------------------
(defun dxf_read (code ename)
     (cdr (assoc code (entget ename)))
)   
;--- end dxf_read--------

cad890

估计有两个问题：
1.捕捉没关；2.采用Command绘制图元

建议采用entmake绘制相关图元，谢谢。

一叶舟

敢问cad890兄，如何关闭捕捉？

andymong

(setvar "osmode" 0)