帮忙修改 实线改虚线

cjjh8301

(defun c:RR( )
  (setq ss (ssget))
  (setq ssnum(sslength ss))
  (setq nb 0)
  (while (< nb ssnum)
  (progn (setq en (entget (ssname ss nb)))
  (setq oli (assoc 6 en))
  (setq nli (cons 6 "hidden"))
  (if (= oli nil)
  (setq en(append en(list nli)))
    (setq en (subst nli oli en))
    );endif
  (entmod en)
     (setq nb (1+ nb))
)
  ))

以上是实线改虚线的代码，帮我小改下，增加颜色设定，实线变虚线颜色为8，不改变原图层颜色.

start4444

后面加这句  (command "CHANGE" ss "" "p" "c" 8 "")

cjjh8301

start4444 发表于 2020-3-17 10:39
后面加这句  (command "CHANGE" ss "" "p" "c" 8 "")

G〆h

实线改虚线还应该考虑到环境变量因素。
(vl-cmdf "ltscale" "100" )    ;正常显示虚线(全局线型比率)
(vl-cmdf "celtscale" "1" )    ;正常显示虚线(局部线型比率)
(vl-cmdf "psltscale" "0" )    ;显示视口中的虚线(默认1)
(vl-cmdf "MSLTSCALE" "0" )   ;模型中线型不按注释比例缩放(默认0)

stonedesign

start4444 发表于 2020-3-17 10:39
后面加这句  (command "CHANGE" ss "" "p" "c" 8 "")

大佬有没有块直接改虚线的功能