如何使用 LSP制作自定义线型

lincctw_ccl · 发表于 2013-8-24 00:19

各位好!
请问有人可以给我个用LSP制作自定义线型的代码供我参考吗?
如果在ACADISO.LIN文檔内用手动输入我是会作!
但我想试着用LSP来建立看看
我利用-LINETYPE 手动建立输入也是可以建立新的线型
有1个问题想请教各位
1. 建立时要手动选ACADISO.LIN 来选举建立新线型的文檔
请教这段LSP该怎么写才能自动建之在ACADISO.LIN内
不用手动选取?

2. 在输入线型样式 (在下一行上):
A,

时要输入文字,我看提示是写2 ~12之间 (我是输入了 A, 12,12)
我输入了 12 建立完成后,我用那个线型绘制了一条线
看起来是一条连绩线,请问如不是输人 A,12,12 应该输入什么数值?,

谢谢!!

forever111 · 发表于 2019-4-7 00:02

厉害厉害学习了

jiang__jin · 发表于 2020-11-21 17:11

也想学习一下

lg328084985 · 发表于 2018-10-27 09:18

新人学西一下

yeahyeah · 发表于 2013-8-24 06:56

http://bbs.mjtd.com/thread-92482-1-1.html

18、创建新线型
(entmake (list '(0 . "LTYPE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLinetypeTableRecord") (cons 2 "BERDIG 5-545") ' (3 . "Border ____ ____ ____ ____ ____") '(70 . 0) '(73 . 2) '(40 . 15.0) '(49 . 10.0) '(74 . 0) '
(49 . -5.0) '(74 . 0) ) )

lincctw_ccl · 发表于 2013-8-24 18:37

感谢yeahyeah指点!

昨天我后来也有找到您提供的这帖子
只是它是用entmake做的关于用这方式建指像素
还不曾研究过,会找时间再研究看看
谢谢!

TENGOMARK · 发表于 2013-8-25 04:08

(setq chklay (tblsearch "layer" "die"))
(if (= chklay nil)
(command "layer" "n" "die" "c" "7" "die" "" "layer" "n" "die" "LT" "continuous" "die" "")

lincctw_ccl · 发表于 2013-8-25 09:36

TENGOMARK 发表于 2013-8-25 04:08
(setq chklay (tblsearch "layer" "die"))
(if (= chklay nil)
(command "layer" "n" "die" ...

感謝指導！
謝謝

pengfei2010 · 发表于 2013-8-25 11:48

不错学习了很好

尘缘一生 · 发表于 2015-12-19 07:27

我写了如下代码，却建立不了线型，大家看为什么啊？

(defun c:xian ()
(entmake (list '(0 . "LTYPE") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLinetypeTableRecord")
(cons 2 "BERDIG 5-545") '(3 . "Border ____ ____ ____ ____ ____") '
(70 . 0) '(73 . 2) '(40 . 15.0) '(49 . 10.0) '(74 . 0) '(49 . -5.0) '
(74 . 0)
)
)
)

尘缘一生 · 发表于 2015-12-19 08:34

*FENCELINE2,Fenceline square ----[]-----[]----[]-----[]----[]---
A,.25,-.1,[BOX,ltypeshp.shx,x=-.1,s=.1],-.1,1

这个线型，如何用 ENTMAKE 建立？

正在重生成模型 · 发表于 2015-12-21 13:39

AERYHFRGJGHJGHJG

知行ooo李肖坪 · 发表于 2015-12-21 16:17

这个也是我需要的，有没有lsp，能够加载的

账号		自动登录	找回密码
密码			注册

[基础] 如何使用 LSP制作自定义线型

相关帖子