liuhoujun 发表于 2008-4-1 09:19:00

求删除中心线程序

<p>求删除中心线程序,能一次性删除所有图元中心线!</p><p>多谢!</p>

ljttjl 发表于 2008-4-3 19:49:00

将具体问题发送至<a href="mailto:ljttjl@tom.com">ljttjl@tom.com</a>,最好能把图形文件发一小部分我看看,能用程序实现.

ZZXXQQ 发表于 2008-4-5 12:28:00

因不知道实际线型名称，发一个删指定线型的程序。


;删指定线型 明经 ZZXXQQ 2008.4.5
(DEFUN C:TT ( / LLST S1 ENT N LN SS I LEN)
(SETVAR "CMDECHO" 0)
(IF (SETQ S1 (ENTSEL "\nSelect a Object 选择实体 :")) (PROGN
(SETQ ENT (ENTGET (CAR S1)))
(IF (ASSOC 6 ENT) (PROGN
   (SETQ SS (SSGET "X" (LIST (ASSOC 6 ENT)))
         SS1 (SSGET "X" (LIST (ASSOC 8 ENT))))
   (COMMAND ".ERASE" SS SS1 "")
) (PROGN
   (SETQ LA (CDR (ASSOC 8 ENT))
         LTP (ASSOC 6 (TBLSEARCH "LAYER" LA))
   SS (SSGET "X" (LIST (ASSOC 8 ENT)))
   SS1 (SSGET "X" (LIST LTP)))
   (COMMAND ".ERASE" SS SS1 "")
))
))
(PRINC)
)
(PRINC "\n输入TT执行删指定线型...")
(PRINC)

AMTONNY 发表于 2008-10-4 20:46:00

<p>;;;将中心线全部改变为0层<br/>&nbsp; (defun C:FFF (/ s1)<br/>&nbsp; (setq cmdsave (getvar "cmdecho")) <br/>&nbsp; (setvar "cmdecho" 0)<br/>&nbsp; (prompt "\n将中心线改为0层:") <br/>&nbsp; (setq s1 (ssget "X" '((6 . "CENTER"))))<br/>&nbsp; (command "chprop" s1 "" "la" "0" "" )<br/>&nbsp; (setq s1 (ssget "X" '((6 . "CENTER2"))))<br/>&nbsp; (command "chprop" s1 "" "la" "0" "" )</p><p>&nbsp; (COMMAND "ERASE"&nbsp;s1 "")<br/>&nbsp; (prin1)<br/>&nbsp;)</p><p>试试这个看看</p>

aileiwu 发表于 2008-10-22 07:23:00

<p>几位朋友好热心，一定要看看</p>

liuhoujun 发表于 2020-4-13 16:37:18

AMTONNY 发表于 2008-10-4 20:46
;;;将中心线全部改变为0层&nbsp; (defun C:FFF (/ s1)&nbsp; (setq cmdsave (getvar "cmdecho")) &nbsp; (s ...

多谢百忙之中滴帮助，感谢

liuhoujun 发表于 2020-4-13 16:37:52

ZZXXQQ 发表于 2008-4-5 12:28
因不知道实际线型名称，发一个删指定线型的程序。




多谢百忙之中滴帮助，感谢

liuhoujun 发表于 2020-4-13 16:38:26

ljttjl 发表于 2008-4-3 19:49
将具体问题发送至ljttjl@tom.com,最好能把图形文件发一小部分我看看,能用程序实现.

多谢百忙之中滴帮助，感谢
页: [1]
查看完整版本: 求删除中心线程序