连续到虚线

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"
           [color=red](cond ((= (getvar "Measurement") 0) "ACAD.LIN")
                 ("ACADISO.LIN"))[/color]))

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

试试这个，伙计。。。。。。。

copy

(defun c:dash (/ s)
 (setvar "cmdecho" 0)
 (if (setq s (ssget '((0 . "LINE,POLYLINE,LWPOLYLINE"))))
   (progn
     [color="blue"](command "chprop" s "" "lt" "DASHED" "")[/color]
   )
   (Princ "\nNothing Selected:")
 )
 (princ)
)

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

此代码永远不会像buddy之前那样返回系统变量cmdecho。

[编程交流] 连续到虚线

发表回复

精选推荐