求用entmake新建线型的源码（新开悬赏）

伪书虫86

看过了langjs的entmake的必要条件，他举例的线型是不带文字，我想搞一个带文字的，尝试了好会儿，愣是没搞出来，还请大师们出手帮帮忙啊
文字随意，就以 DS写一个就好了
不胜感激啊

类似图片中的效果，可以实现输入什么字符，画出来的线型中的文字就是什么字符

edata

貌似不能用entmake创建复杂线型，可以采用加载的方式创建。
来个例子

1. ;;http://www.theswamp.org/index.php?topic=21339.msg258481#msg258481
   
2. ;;code by ronjonp
   
3. (defun c:makelt(/ str file fn exprt)
   
4.   (setq        str   (getstring T "\n Enter string for linetype: ")
   
5.         file  (strcat (getvar 'dwgprefix)
   
6.                       (vl-filename-base (getvar 'dwgname))
   
7.                       "_mylt.lin"
   
8.               )
   
9.         fn    (open file "w")
   
10.         exprt (getvar 'expert)
    
11.   )
    
12.   (write-line (strcat "*" str ", ---" str "---") fn)
    
13.   (write-line
    
14.     (strcat "A,0.5,-0.05,[\""
    
15.             str
    
16.             "\",STANDARD,S=0.1,R=0.0,X=-0.0,Y=-.05],"
    
17.             (rtos (* -0.1 (strlen str))2 3)
    
18.     )
    
19.     fn
    
20.   )
    
21.   (close fn)
    
22.   (setvar 'expert 5)
    
23.   (command ".-linetype" "load" "*" file "")
    
24.   (setvar 'expert exprt)
    
25.   (vl-file-delete file)
    
26.   (princ)
    
27. )
    

;;<a href="http://www.theswamp.org/index.php?topic=21339.msg258481#msg258481" target="_blank">http://www.theswamp.org/index.php?topic=21339.msg258481#msg258481</a><br /> ;;code by ronjonp<br /> (defun c:makelt(/ str file fn exprt)<br />   (setq        str   (getstring T "\n Enter string for linetype: ")<br />         file  (strcat (getvar 'dwgprefix)<br />                       (vl-filename-base (getvar 'dwgname))<br />                       "_mylt.lin"<br />               )<br />         fn    (open file "w")<br />         exprt (getvar 'expert)<br />   )<br />   (write-line (strcat "*" str ", ---" str "---") fn)<br />   (write-line<br />     (strcat "A,0.5,-0.05,[\""<br />             str<br />             "\",STANDARD,S=0.1,R=0.0,X=-0.0,Y=-.05],"<br />             (rtos (* -0.1 (strlen str))2 3)<br />     )<br />     fn<br />   )<br />   (close fn)<br />   (setvar 'expert 5)<br />   (command ".-linetype" "load" "*" file "")<br />   (setvar 'expert exprt)<br />   (vl-file-delete file)<br />   (princ)<br /> )<br />

尘缘一生

edata 发表于 2014-8-28 09:22
貌似不能用entmake创建复杂线型，可以采用加载的方式创建。
来个例子

能不能写这个线型代码？
*FENCELINE2,Fenceline square ----[]-----[]----[]-----[]----[]---
A,6.35,-2.54,[BOX,ltypeshp.shx,x=-2.54,s=2.54],-2.54,25.4

edata

尘缘一生 发表于 2017-8-30 23:03
能不能写这个线型代码？
*FENCELINE2,Fenceline square ----[]-----[]----[]-----[]----[]---
A,6.35,- ...

表示很无语,这个已经是很简单的东西了..

1. (defun c:makelt(/ str file fn exprt bak_cmd)
   
2.   (setq file (strcat (getvar 'dwgprefix)(vl-filename-base (getvar 'dwgname))"_mylt.lin")
   
3.         fn    (open file "w")
   
4.         exprt (getvar 'expert)
   
5.         bak_cmd(getvar 'cmdecho))
   
6.   (write-line "*FENCELINE2,Fenceline square ----[]-----[]----[]-----[]----[]---" fn)
   
7.   (write-line "A,6.35,-2.54,[BOX,ltypeshp.shx,x=-2.54,s=2.54],-2.54,25.4" fn)  
   
8.   (close fn)
   
9.   (setvar 'expert 5)
   
10.   (setvar 'cmdecho 0)
    
11.   (command ".-linetype" "load" "*" file "")
    
12.   (vl-file-delete file)
    
13.   (and exprt (setvar 'expert exprt))
    
14.   (and bak_cmd (setvar 'cmdecho bak_cmd))  
    
15.   (princ)
    
16. )

(defun c:makelt(/ str file fn exprt bak_cmd)<br />   (setq file (strcat (getvar 'dwgprefix)(vl-filename-base (getvar 'dwgname))"_mylt.lin")<br />         fn    (open file "w")<br />         exprt (getvar 'expert)<br />         bak_cmd(getvar 'cmdecho))<br />   (write-line "*FENCELINE2,Fenceline square ----[]-----[]----[]-----[]----[]---" fn)<br />   (write-line "A,6.35,-2.54,[BOX,ltypeshp.shx,x=-2.54,s=2.54],-2.54,25.4" fn)  <br />   (close fn)<br />   (setvar 'expert 5)<br />   (setvar 'cmdecho 0)<br />   (command ".-linetype" "load" "*" file "")<br />   (vl-file-delete file)<br />   (and exprt (setvar 'expert exprt))<br />   (and bak_cmd (setvar 'cmdecho bak_cmd))  <br />   (princ)<br /> )

fangmin723

谢谢大师分享，学习了！

xiaomm250

CAD太高级了,太强大了