zz419540341 发表于 2009-3-9 18:34:00

如何连续加载2个线型。比如说"dashed2"和"DOT"

如何连续加载2个线型。比如说"dashed2"和"DOT"

samshs 发表于 2009-3-11 14:16:00

;加载线形---------------------------------------------------
(defun C:JL ()
(setvar "CMDECHO" 0)
(if (null (tblsearch "ltype" "DOT"))
(command "-linetype" "l" "DOT" "" "")
(command "-linetype" "l" "DOT" "" "N" ""))
(if (null (tblsearch "ltype" "dashed2"))
(command "-linetype" "l" "dashed2" "" "")
(command "-linetype" "l" "dashed2" "" "N" ""))
(setvar "CMDECHO" 1)
(princ))
页: [1]
查看完整版本: 如何连续加载2个线型。比如说"dashed2"和"DOT"