拾取时拾取点

harilalmn · 发表于 2022-7-6 08:51:58

有人能告诉我我做错了什么吗？
此例程用于在指定的方向上使用不同的偏移值重复偏移拾取的图元。前4-5个偏移是可以的。但它抵消了一个错误的实体。。。

(defun c:QO( / PickedEnt pt0 Ent OSM
      OffsetTowards Ang i pt2 OffsetVal)
 (setq PickedEnt (entsel "\nPick Ent:"))
 (setq pt0 (cadr PickedEnt))
 (setq Ent (car PickedEnt))
 (setq OSM (getvar "OSMODE"))
 (setvar "osmode" 0)
 (setq OffsetTowards (getpoint pt0 "\nPick direction to offset:"))
 (setq Ang (angle pt0 OffsetTowards))
 
 (setq i 1)
 (While (> i 0)
   (setq pt2 (polar pt0 ang 100000000))
   (setq OffsetVal (getreal "\nOffset Distance:"))
   (command "_Offset" OffsetVal Ent pt2 "")
   (setq Ent (entlast))
   (setq pt0 pt2)
   (setq i (1+ i))
 )
)
(defun *error* (errmsg)
 (princ errmsg)
 (princ)
 (if (not (eq OSM nil))(setvar "OSMODE" OSM))
)

pBe · 发表于 2022-7-6 09:05:43

（setq pt2（极性pt0和100000000））

我建议您使用选定的第一个实体作为每个偏移的基础，并记录您输入的每个距离，为OffsetVal变量添加总值+新值，这样，方向仍将来自原始实体，无需重新分配pt2的值，只需将偏移距离增加总值+新值，无需使用entlast

一个简单的代码应该是这样的

copy

(defun c:test (/ PickedEnt pt0 i)
 (setq PickedEnt (entsel "\nPick Ent:"))
 (setq pt0 (cadr PickedEnt))
 (setq pt0 ( getpoint  pt0 "\nPick direction to offset:"))
 (setq i 0)
 [color=blue](while 
(setq OffsetVal (getreal "\nOffset Distance:"))
(setq OffsetVal (+ i OffsetVal))
    (command "_Offset" OffsetVal PickedEnt pt0 "")
    (setq i OffsetVal)
   )
[/color](princ)
)

HTH公司

harilalmn · 发表于 2022-7-6 09:15:21

谢谢pBe，我会试试的。。！！

harilalmn · 发表于 2022-7-6 09:29:23

我在你建议pBe时修改了它，
不，它很好用。。。给你。。

copy

(defun c:QO( / PickedEnt pt0 Ent OSM
      OffsetTowards Ang i pt2 OffsetVal)
 (setq PickedEnt (entsel "\nPick Ent:"))
 (setq pt0 (cadr PickedEnt))
 (setq Ent (car PickedEnt))
 (setq OSM (getvar "OSMODE"))
 (setvar "osmode" 0)
 (setq OffsetTowards (getpoint pt0 "\nPick direction to offset:"))
 (setq Ang (angle pt0 OffsetTowards))
 (setq OffsetVal 0)
 (setq i 1)
 (While (> i 0)
   (setq OffsetVal (+ OffsetVal (getreal "\nOffset Distance:")))
   (setq pt2 (polar pt0 ang OffsetVal))
   (command "_Offset" OffsetVal Ent pt2 "")
   (setq i (1+ i))
 )
)
(defun *error* (errmsg)
 (princ errmsg)
 (princ)
 (if (not (eq OSM nil))(setvar "OSMODE" OSM))
)

pBe · 发表于 2022-7-6 09:38:13

看看我发布的harilalmn示例代码

Lee Mac · 发表于 2022-7-6 09:45:45

另一种选择：

copy

Command: EXOFFSET
Settings: Distance = Through,  Layer = SOURCE, Gaptype = Normal
Specify offset distance or [[color=red]Through[/color]] <Through>:
Select object(s) to offset or [Options/Undo]:
1 object(s) found.
[color=red]Shift+Pick for multiple;[/color] Ctrl+Pick to erase source object.
Specify through point or [[color=red]Multiple[/color]/Options/Undo]:

harilalmn · 发表于 2022-7-6 09:53:01

谢谢李。。。。！！

[编程交流] 拾取时拾取点

发表回复

精选推荐