【求助】CAD如何画轨道线

Gu_xl

回复 tm20038175 的帖子

所谓的单线刷成多线，就是选择你要刷的线，获取线的顶点，再用多线画一遍就ok了！

tm20038175

是的，就是这个思路，我试试看

tm20038175

回复 Gu_xl 的帖子

根据您的思路，我大概编制了一个开始，但是介于水平有限，有些错误，对对线段也无法修改，代码如下，

(DEFUN C:mll ()

    (setq $orr *error*)
    (setq *error* #err)   ;当程序出错时就会执行#err函数
(setq oldmode (getvar "osmode") p1mode t)
(setvar "CMDECHO" 1)
while ( p1mode
(setq sel (car(entsel"\n拾取一条线<LINE>/<PLINE>/<SPLINE>/<ARC>: ")) )

         (if (VL-Catch-All-Error-P sel)(SETQ p1mode NIL)
        (
       (setq ent (vlax-ename->vla-object sel))
       (setq p1  (vlax-curve-getStartPoint ent))
       (setq q1  (vlax-curve-getEndPoint ent)

(setvar "osmode" 0)
      (command "_MLINE" "st" "guidao" "j" "z"  p1 q1 ""  )
(setvar "osmode" oldmode)

(setvar "osmode" 0)
(command "_.erase" car "" )
(setvar "osmode" oldmode)
       ))


)

    (setq *error* $orr)
（princ）
)

(defun #err (s)
    (princ)
  (setq *error* $orr)
(SETQ p1mode NIL)
(setq enda key)
)

tm20038175

假设guidao是我自定义的轨道mline

pop159

定义线型，很难做到

tm20038175

这么好的思路，不能沉下去啊