有关线型和的litle帮助

prodromosm · 发表于 2022-7-5 23:19:52

早上好我需要一点帮助。我试着写一个lisp来画一条线
具有特定的石灰类型，但线条比例并不总是相同的

(defun c:DASHDOT ()
(command "_layer" "m" "DASHDOT" "c" "1" "" "")
(setq scl (getvar "useri1"))
((SETQ DAS "DASHDOT")(setvar "LTSCALE" scl))
(command  "linetype" "s" DAS "" ) 
(print "draw DASHDOT line ")
(print "")  
(setq s1 (getpoint "give the first point :"))
(print "")  
(WHILE (setq s2 (getpoint s1 " give the second point :")) 
(print "")
(command "line" s1 s2 "")
(setq s1 s2)
)
 )

当scl改变时，线型改变

谢谢

MSasu · 发表于 2022-7-5 23:24:50

这假设设置了USERI1系统变量；如果不是，则返回0，这不是LTSCALE允许的值：

copy

(setq [color=magenta]scl[/color] (getvar "useri1"))
...
(setvar "LTSCALE" [color=magenta]scl[/color])

请删除此语句的外括号：

copy

[color=red][s]([/s][/color](SETQ DAS "DASHDOT")(setvar "LTSCALE" scl)[color=red][s])[/s][/color]

此外，考虑不仅对命令使用下划线，而且对其选项也使用下划线。首先验证该层的存在是有用的：

copy

[color=red](if (not (tblsearch "LAYER" "DASHDOT"))[/color]
(command "_layer" "[color=red]_[/color]m" "DASHDOT" "[color=red]_[/color]c" "1" "" "")
[color=red])[/color]

使用系统字作为变量和函数（如DASHDOT）的名称不是一种好的编程实践，尽管这不是一种保留名称。

prodromosm · 发表于 2022-7-5 23:29:04

你好，MSasu
我做了这个改变，lisp也能正常工作

copy


(defun c:TEST (/ scl klim)
(if (not (tblsearch "LAYER" "DASHDOT"))
(command "_layer" "_m" "DASHDOT" "_c" "1" "" "")
)
(setq scl (getvar "useri1"))
(setq klim (* 0.0017 scl))
(SETQ PER "DASHDOT" )
(setvar "LTSCALE" klim)
(command  "linetype" "s" per "" ) 
(print "draw DASHDOT line ")
(print "")  
(setq s1 (getpoint "give the first point :"))
(print "")  
(WHILE (setq s2 (getpoint s1 " give the second point :")) 
(print "")
(command "line" s1 s2 "")
(setq s1 s2)
)
 )

但我还有一个问题。运行lisp时，将线型比例更改为图形中的所有线。我不想将线型比例仅更改为特定的线条

MSasu · 发表于 2022-7-5 23:33:37

这是正常的，因为LTSCALE系统变量控制用虚线类型绘制的所有图元的外观。要仅针对一个实体进行调整，只需添加以下语句即可。可能有助于确保对当前Osnap没有干扰。

copy

...
[color=red][s](setvar "LTSCALE" klim)[/s]
[/color]...
(command "[color=red]_[/color]line" [color=magenta]"_non"[/color] s1 [color=magenta]"_non"[/color] s2 "")
[color=magenta](comamnd "_CHPROP" (entlast) "" "_S" klim "")[/color]
...

prodromosm · 发表于 2022-7-5 23:34:46

我无法理解。你能说得更具体些吗

prodromosm · 发表于 2022-7-5 23:40:24

copy


(defun c:TEST (/ scl klim)
(if (not (tblsearch "LAYER" "DASHDOT"))
(command "_layer" "_m" "DASHDOT" "_c" "1" "" "")
)
(setq scl (getvar "useri1"))
(setq klim (* 0.0017 scl))
(SETQ PER "DASHDOT" )
(command  "linetype" "s" per "" ) 
(print "draw DASHDOT line ")
(print "")  
(setq s1 (getpoint "give the first point :"))
(print "")  
(WHILE (setq s2 (getpoint s1 " give the second point :")) 
(print "")
(command "line" s1 s2 "")
(setq s1 s2)
)
 )

那么呢

copy

(command "_line" "_non" s1 "_non" s2 "")
(comamnd "_CHPROP" (entlast) "" "_S" klim "")

我只想更改这次绘制的部分线条的线型比例。例如，我画一条线，然后转到“特性”菜单并更改线型比例。然后我再画一条线，转到“属性”菜单，并给出另一个比例，但我不想将比例更改为预览线

MSasu · 发表于 2022-7-5 23:42:42

我补充了一些意见：

copy

(comamnd "_CHPROP"   [color=blue];call the CHPROP command[/color]
        (entlast)   [color=blue];select the last added entity (your line)[/color]
        ""          [color=blue];close the selection process[/color]
        "_S" klim   [color=blue];adjust the entity linetye scale property using the ltScale option[/color]
        "")         [color=blue];last <Enter> will close the command which is repetitive.[/color]

prodromosm · 发表于 2022-7-5 23:46:40

不起作用。也许我做错了同样的事。我只想更改这条线的线型比例。我运行lisp并为图形中的所有线提供相同的线型比例，这是错误的。我对每条线使用不同的线型比例。。
我希望在线型管理器窗口中全局比例因子为1，当前对象比例为1，并且仅在“特性”窗口中必须更改线型比例

MSasu · 发表于 2022-7-5 23:49:21

请发布最新更改的代码。

prodromosm · 发表于 2022-7-5 23:54:16

copy


(defun c:TEST1 (/ scl klim)
(if (not (tblsearch "LAYER" "DASHDOT"))
(command "_layer" "_m" "DASHDOT" "_c" "1" "" "")
)
(setq scl (getvar "useri1"))
(setq klim (* 0.0017 scl)
(comamnd "_CHPROP"  "" "_S" klim "")
(SETQ PER "DASHDOT" )
(command  "_linetype" "s" per "" ) 
(print "draw DASHDOT line ")
(print "")  
(setq s1 (getpoint "give the first point :"))
(print "")  
(WHILE (setq s2 (getpoint s1 " give the second point :")) 
(print "")
(command "line" s1 s2 "")
(setq s1 s2)
)
 )

[编程交流] 有关线型和的litle帮助

发表回复

精选推荐