求用entmake新建线型的源码（新开悬赏）
本帖最后由 伪书虫86 于 2014-8-28 09:29 编辑看过了langjs的entmake的必要条件，他举例的线型是不带文字，我想搞一个带文字的，尝试了好会儿，愣是没搞出来，还请大师们出手帮帮忙啊
文字随意，就以 DS写一个就好了
不胜感激啊
类似图片中的效果，可以实现输入什么字符，画出来的线型中的文字就是什么字符 貌似不能用entmake创建复杂线型，可以采用加载的方式创建。
来个例子
;;http://www.theswamp.org/index.php?topic=21339.msg258481#msg258481
;;code by ronjonp
(defun c:makelt(/ str file fn exprt)
(setq str (getstring T "\n Enter string for linetype: ")
file(strcat (getvar 'dwgprefix)
(vl-filename-base (getvar 'dwgname))
"_mylt.lin"
)
fn (open file "w")
exprt (getvar 'expert)
)
(write-line (strcat "*" str ", ---" str "---") fn)
(write-line
(strcat "A,0.5,-0.05,[\""
str
"\",STANDARD,S=0.1,R=0.0,X=-0.0,Y=-.05],"
(rtos (* -0.1 (strlen str))2 3)
)
fn
)
(close fn)
(setvar 'expert 5)
(command ".-linetype" "load" "*" file "")
(setvar 'expert exprt)
(vl-file-delete file)
(princ)
)
edata 发表于 2014-8-28 09:22
貌似不能用entmake创建复杂线型，可以采用加载的方式创建。
来个例子
能不能写这个线型代码？
*FENCELINE2,Fenceline square ----[]-----[]----[]-----[]----[]---
A,6.35,-2.54,,-2.54,25.4
尘缘一生 发表于 2017-8-30 23:03
能不能写这个线型代码？
*FENCELINE2,Fenceline square ----[]-----[]----[]-----[]----[]---
A,6.35,- ...
表示很无语,这个已经是很简单的东西了..
(defun c:makelt(/ str file fn exprt bak_cmd)
(setq file (strcat (getvar 'dwgprefix)(vl-filename-base (getvar 'dwgname))"_mylt.lin")
fn (open file "w")
exprt (getvar 'expert)
bak_cmd(getvar 'cmdecho))
(write-line "*FENCELINE2,Fenceline square ----[]-----[]----[]-----[]----[]---" fn)
(write-line "A,6.35,-2.54,,-2.54,25.4" fn)
(close fn)
(setvar 'expert 5)
(setvar 'cmdecho 0)
(command ".-linetype" "load" "*" file "")
(vl-file-delete file)
(and exprt (setvar 'expert exprt))
(and bak_cmd (setvar 'cmdecho bak_cmd))
(princ)
) 谢谢大师分享，学习了！ CAD太高级了,太强大了
页:
[1]