宏帮助
您好，我正在尝试创建一个宏（或lisp），并努力找到如何做到这一点。基本上，我想要实现的是：
单击自定义按钮，
单击第一个点（p1）
单击第二个点（p2）
在p1处插入块，并将比例设置为p1和p2之间的相等距离
将轴承设置为p1和p2之间的轴承
然后结束。
该过程需要点击3次，包括点击自定义按钮。
这基本上是为了加快插入门的速度。
我在想，当你点击p1和p2，然后用这条线抓取线的起点、终点和方向角时，可以画一条线。
或者使用变量。
任何帮助，或指向正确的方向，都将不胜感激。我不希望任何人为我做所有的工作，只要一个提示就好了。 欢迎来到CadTutor。
像这样的事情？
(defun c:Test (/ bk 1p 2p)
(setq bk "BlockName") ;; Specify the name of block here .
(cond
((not (tblsearch "BLOCK" bk))
(alert "\n The Block Name is not found !!")
)
((and (setq 1p (getpoint "\n Specify First point :"))
(setq 2p (getpoint "\n Next point :" 1p))
)
(command
"_.-insert"
bk
"_none"
1p
(distance 1p 2p)
(distance 1p 2p)
(polar 1p
(angle 1p
(mapcar (function (lambda (q p) (* (+ p q) 0.5)))
1p
2p
)
)
1.0
)
)
)
)
(princ)
)
Tharwat brilliant和往常一样，如果你的门是朝哪个方向摆的，那么你只需要一个门的问题。你可能需要额外的选择，因为每个门都有一个左右。
谢谢你的好话。
让我们拭目以待，看看JRB蕾想要对代码做什么。 JRBEDS do you want walls doors window roof etc dynamic input into 2.5D plannis其商用价格比标准autocad中的Acad Architectural works便宜。
页:
[1]