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

zz419540341

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

samshs

2. ;加载线形---------------------------------------------------
3. (defun C:JL ()
4. (setvar "CMDECHO" 0)
5. (if (null (tblsearch "ltype" "DOT"))
6.   (command "-linetype" "l" "DOT" "" "")
7.   (command "-linetype" "l" "DOT" "" "N" ""))
8. (if (null (tblsearch "ltype" "dashed2"))
9.   (command "-linetype" "l" "dashed2" "" "")
10.   (command "-linetype" "l" "dashed2" "" "N" ""))
11.   (setvar "CMDECHO" 1)
12. (princ))

;加载线形--------------------------------------------------- (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))