[求助]关于新建图层的一个问题

mcxiangxin

帮我看一下我程序哪里出了点问题：

我想新建一个名为"cen"，线型为center的图层，但是用下面程序老是新建不了。请教怎么修改一下可以解决这个问题

(defun c:nn ()
(make_lay "cen" 1 "center")
(princ)
)

(defun make_lay (name color lt)
(entmake (list
 '(0 . "LAYER")
        '(100 . "AcDbSymbolTableRecord")
        '(100 . "AcDbLayerTableRecord")
        '(70 . 0)
        '(290 . 1)                
        (cons 2 name)
        (cons 6 lt)
        (cons 62 color)
        )
  )
(princ)
)

caoyin

线型需要先加载！！

mcxiangxin

谢了，除可用command "linetype"加载外还有没有其他方法呢？

caoyin

vla-load

mcxiangxin

具体怎么用这个vla-load？找不到这个函数的用法

caoyin

(defun ltype-load (ltName ltFile)
  (vl-catch-all-apply
    'vla-load
    (list (vla-get-Linetypes (vla-get-activedocument (vlax-get-acad-object)))
          ltName
          ltFile
    )
  )
)

;;test

(ltype-load "dot" "acadiso.lin")

AMTONNY

(defun c:12()
(command "layer" "n" "cen" "c" "4" "cen" "")
(command "layer" "l" "center" "PT" "lw" 0 "cen" "")
)

这样就可以建好了图层了

ryljun

楼上说的不错，不要把简单问题复杂化!

灬北方狼灬

学习学习