MSasu 发表于 2022-7-6 08:52:12

为此，您应该查看ENTNEXT函数。

irneb 发表于 2022-7-6 08:55:42

对于那些不以英制单位工作的人来说，这只是一件小事：(if (not (tblsearch "LTYPE" "DASHED"))
(vla-load (vla-get-Linetypes (vla-get-ActiveDocument (vlax-get-acad-object)))
         "DASHED"
         (cond ((= (getvar "Measurement") 0) "ACAD.LIN")
               ("ACADISO.LIN"))))

godofcad 发表于 2022-7-6 09:01:17

试试这个，伙计。。。。。。。
 
(defun c:dash (/ s)
(setvar "cmdecho" 0)
(if (setq s (ssget '((0 . "LINE,POLYLINE,LWPOLYLINE"))))
   (progn
   (command "chprop" s "" "lt" "DASHED" "")
   )
   (Princ "\nNothing Selected:")
)
(princ)
)

Tharwat 发表于 2022-7-6 09:05:25

 
此代码永远不会像buddy之前那样返回系统变量cmdecho。
页: 1 [2]
查看完整版本: 连续到虚线