[编程申请]：建立图层"123" 线型“dash”,在lsp里面该怎么写，谢谢

skyrock

比如建立图层"123" 线型“dash”
请指教 谢谢阿

eachy

最初由 skyrock 发布
[B]比如建立图层"123" 线型“dash”
请指教 谢谢阿 [/B]

1 建立图层

(command ".layer" "m" "123" "")

2 线形就要先判断了，下面这个是工具箱中的一个函数

2. 
   
3. ;|
   
4.    按需加载线型
   
5. |;
   
6. (defun $XDLSP_LoadLType (ltype)
   
7.   (if (not (tblsearch "ltype" ltype))
   
8.     (progn
   
9.       (xdrx_sysvar_push "expert" "osmode")
   
10.       (setvar "expert" 5)
    
11.       (setvar "osmode" 0)
    
12.       (command ".-linetype" "l" ltype "acad.lin" "")
    
13.       (setq return t)
    
14.     )
    
15.   )
    
16.   return
    
17. )

<br /> ;|<br />    按需加载线型<br /> |;<br /> (defun $XDLSP_LoadLType (ltype)<br />   (if (not (tblsearch "ltype" ltype))<br />     (progn<br />       (xdrx_sysvar_push "expert" "osmode")<br />       (setvar "expert" 5)<br />       (setvar "osmode" 0)<br />       (command ".-linetype" "l" ltype "acad.lin" "")<br />       (setq return t)<br />     )<br />   )<br />   return<br /> )

心梦相随

还可以用entmake
参考(entget(tblobjname"layer""0"))应先确认线型DASH存在

f5612140

單純的lisp就可以了
(setq ltp (tblsearch "LTYPE" "dashdot"))
(if (= ltp nil) (command "-linetype" "l" "dashdot" "" ""))

註:我的機子沒有dash,用dashdot代替

lsjjm

下面这个程序先检查你所要定义的图层是否存在,  如果否, 按照层名, 颜色,线型定义新图层:

(defun mlayer (name color ltype)
  (if (tblsearch "layer" name)
      (vl-cmdf "layer" "s" name "")
      (progn
        (setq regen (getvar "regenmode"))
        (setvar "regenmode" 0)
        (vl-cmdf "layer" "m" name)
        (if color (vl-cmdf "c" color name))
        (if ltype (vl-cmdf "lt" ltype name))
        (vl-cmdf "")
        (setvar "regenmode" regen)
      )
  )
)

skyrock

谢谢各位大哥！你们真厉害阿！

WRHCHINA

我参照别人的lsp，做了符合1楼要求的mla。lsp