lisp 线型虚实变换_晓东CAD家园-论坛-LISP/VLISP程序库-[编程申请]：求实线虚线互相变换程序-本人希望高手编个能在cad中应用的实线虚线互相变换程序,非常感谢,在线期盼您的好消息!这...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x

本人希望高手编个能在cad中应用的实线虚线互相变换程序,非常感谢,在线期盼您的好消息!

这是天正中的虚实变换lisp文件;

(defun chinslt (bn1 bn2 lt2 / e lt1 ll)

(setq        lt2 (cons 6 lt2)

ll  (tblsearch "block" bn1)

e   (cdr (assoc -2 ll))

ll  (subst (cons 2 bn2) (cons 2 bn1) ll)

)

(entmake ll)

(while e

(setq ll  (cdr (entget e))

e   (entnext e)

lt1 (assoc 6 ll)

ll  (if lt1

(subst lt2 lt1 ll)

(append ll (list lt2))

)

)

(entmake ll)

)

(entmake lbe)

)

(defun c:chdash        (/ lbe ss ssl e bn1 bn2 ll lbn tfbd tfbd1)

(princ "\n请选取要变换线型的图元 : ")

(if (setq ss (ssget))

(progn

(command ".undo" "a" "off" ".undo" "g")

(setq lbe        '((0 . "ENDBLK"))

ssl        (ssadd)

)

(getss ss 0)

(setq e         (namess 0)

bn2         (if (= "INSERT" (socas 0))

(car (xdout e