写了一个功能：框选文字、直线分别归各自图层，想让改成一键就可以做到？

zhangcan0515 · 发表于 2020-9-16 20:11:19

(defun c:dh1()
(setq ssg (ssget ":s" '((0 . "TEXT,mtext"))))
(sssetfirst nil ssg )
(command "change" ssg "" "p" "La" "8文字层" "" )
(princ)
)
(defun c:dh2()
(setq ssg (ssget ":s" '((0 . "line"))))
(sssetfirst nil ssg )
(command "change" ssg "" "p" "La" "2细实线" "" )
(princ)
)

这是本人写的，需要执行2次，想改成一键就可以做到的单行文字去文字层，直线去细实线层

wzg356 · 发表于 2020-9-16 20:50:40

(defun c:dh( / ssg ssg1 ssg2)
(setq ssg (ssget ":s" '((0 . "TEXT,mtext,line"))))
(setq ssg1 (ssget "p" '((0 . "TEXT,mtext"))))
(command "._Select" ssg "_Remove" ssg1 "")
(setq ssg2 (ssget "p"))
(command "change" ssg1 "" "p" "La" "8文字层" "" )
(command "change" ssg2 "" "p" "La" "2细实线" "" )
(princ)
)

试一下

zhangcan0515 · 发表于 2020-9-16 21:11:14

wzg356 发表于 2020-9-16 20:50
(defun c:dh( / ssg ssg1 ssg2)
(setq ssg (ssget ":s" '((0 . "TEXT,mtext,line"))))
(setq ssg1 (ssget ...

(defun c:TT()
(setq ssg (ssget ":s" '((0 . "TEXT,mtext,line"))))
(setq n(sslength ssg))
(setq i 0)
(while(< i n)
   (setq si(ssname ssg i))
   (setq k(entget si))
   (setq m(cdr(assoc 0 k)))
   (if(= m "LINE")
      (command "change" si "" "p" "La" "2细实线" "" )
      (command "change" si "" "p" "La" "8文字层" "" )
   )
   (setq i(+ i 1))
)
(princ)
)

谢谢老师

wzg356 · 发表于 2020-9-16 21:17:56

zhangcan0515 发表于 2020-9-16 21:11
(defun c:TT()
(setq ssg (ssget ":s" '((0 . "TEXT,mtext,line"))))
(setq n(sslength ssg))

不错，你的这样更安全些

xyp1964 · 发表于 2020-9-16 22:38:41

(defun c:tt ()
(if (setq ss (ssget '((0 . "TEXT,mtext,line"))))
(if (setq ssl (ssget "p" '((0 . "line"))))
(progn
(command "chprop" ssl "" "La" "2细实线" "")
(command "select" ss "r" ssl "")
(command "chprop" (ssget "p") "" "La" "8文字层" "")
)
(command "chprop" ss "" "La" "8文字层" "")
)
)
(princ)
)

zhangcan0515 · 发表于 2020-9-17 09:47:35

xyp1964 发表于 2020-9-16 22:38

谢谢院长捧场！！

昊翰鲲鹏 · 发表于 2021-11-5 17:31:38

学习了学习了，太优秀了

账号		自动登录	找回密码
密码			注册

[提问] 写了一个功能：框选文字、直线分别归各自图层，想让改成一键就可以做到？

浏览过的版块