dcl1214 发表于 2024-4-17 09:08:01

多线mline绘制command方法

本帖最后由 dcl1214 于 2024-4-17 09:23 编辑

(defun $make-mline$ (kd lst / e-o e-n pt)
   ;($make-mline$ "随便" nil)
(or (and kd (member (type kd) (list 'int 'real)))
      (setq kd 3.0)
)
(setq e-o (entlast))
(WHILE (NOT PT)
    (setq pt (VL-CATCH-ALL-APPLY 'getpoint (LIST "请点击起点")))
    (IF(VL-CATCH-ALL-ERROR-P PT)
      (SETQ PT NIL)
    )
)
(vl-catch-all-apply
    (function (lambda ()
    (vl-cmdf "_.Mline" "S" kd "non" pt)
      )
    )
)
(vl-catch-all-apply
    (function (lambda ()
    (while (= 1 (logand 1 (getvar 'cmdactive)))
      (PRINT "请点击下一点")
      (vl-cmdf "\\")
    )
      )
    )
)
(setq e-n (entlast))
(if (equal e-o e-n)
    (setq e-n nil)
)
e-n
)

tranque 发表于 2024-4-17 10:43:05

感谢楼主的无私分享，想请问下，多线的应用场景是怎样的呢，以前我从来没遇到过多线

magicheno 发表于 2024-4-17 10:59:26

感谢大佬分享

gzcsun 发表于 2024-4-18 11:17:48

和 Mline 有什么不同？

这只胆小鬼 发表于 2024-4-18 11:19:15


感谢大佬分享学习了
页: [1]
查看完整版本: 多线mline绘制command方法