2013-10-24 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

zyhandw

周(281369222)于2013-10-24 17-35-12：
签到

清风明月10

清风明月(897902105)于2013-10-24 20-11-18：
啊？我并没有在代码中让它输入“C”啊？
(DEFUN C:TT ( )
; 在000缩放到方框图层中画轻多义线
(setq oldOsmode (getvar "osMode"))
(setvar "osMode" 0)
(princ "\n选取轻多义线的点，画轻多义线:")
(command "pline" PAUSE) ;;画一个轻多义线。
(setq 图元名 (entlast));选择集的集合，其实是图元名集合
(setq 新图层点对 (cons 8 "000缩放到方框"))
(setq 图元组码 (entget 图元名))
(setq 旧图层点对 (assoc '8 图元组码))
(setq 图元组码 (subst 新图层点对 旧图层点对 图元组码))
(entmod 图元组码)
(command "-layer" "P" "N" "000缩放到方框" "")
(setvar "osMode" oldOsmode)
  (princ )   
)
请问这样画出来的多义线怎么一定是封闭的