本人的第一个实用性的LISP程序

xuhnsz188 · 发表于 2006-8-27 22:05:00

本人写的把所有虚线转换成黄色的虚线（但对与随层的虚线无用）

希望大家以后能多多指点！谢谢

dx163805 · 发表于 2006-8-28 08:59:00

谢谢，自己的辛苦大家来享用，楼主，高，谢谢

ZZXXQQ · 发表于 2006-8-28 12:13:00

(defun c:H2(/ ss1 cc)
(setq ss1 (ssget ))
(setq cc (acad_colordlg 2))
(setq ss1 (ssget "x" '((6 . "HIDDEN"))))
(command "chprop" ss1 "" "c" CC "")
(prin1)
)

第一个SSGET有什么用?

ntwzym · 发表于 2006-8-28 13:52:00

高，谢谢

xuhnsz188 · 发表于 2006-9-8 21:55:00

谢谢指点

liexol · 发表于 2006-9-24 20:30:00

SSGET应该是获取选择集的意思

ntwzym · 发表于 2006-9-26 15:21:00

好像没有什么实用价值

xuhnsz188 · 发表于 2006-9-26 20:57:00

本人是做模具行业的我觉得对我们行业来讲还是有一定的用处的. 但对于其他行业我就不知道拉!

pleasehelp · 发表于 2006-9-26 22:30:00

(defun c:ct1 (/ )
(setvar "cmdecho" 0)
(command "undo" "be")
(prompt "\nSelect two texts:")
(setq el (ssget '((0 . "TEXT"))))
(setq len (sslength el))
(if (> len 2)
(progn (alert "Too Many Texts!") (exit))
)
(setq en1 (entget (ssname el 0)))
(setq en2 (entget (ssname el 1)))
(setq p1 (assoc 1 en1)) ;文字内容
(setq q1 (assoc 1 en2))
(setq p2 (cons 1 (cdr q1)))
(setq q2 (cons 1 (cdr p1)))
(setq p3 (subst p2 p1 en1))
(entmod p3)
(setq q3 (subst q2 q1 en2))
(entmod q3)
(command "undo" "e")
(setvar "cmdecho" 1)
(princ)
)

这是偶写的第一个程序。还好当时有高人指点了一下，才完成的。

honxj · 发表于 2006-11-4 22:06:00

楼主辛苦了！这个LSP对于机械或模具行业还是有一点帮助的，谢谢分享!

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

本人的第一个实用性的LISP程序

本帖子中包含更多资源

顶一个