请帮我放置减速器a
你好，任何人请帮我把减速机放在两条线的交点上。
欲了解更多信息，请参阅附图。
我有一些这样的工作。。
减速机外形在那个里，我想把减速机块正好放在两条线的交点上。每次我必须画两条对角线和精确交点，我必须放置减速块。我需要一个工具，我只想选择外部轮廓，工具应该显示需要的交点在那个地方，我想放置减速器。。。。
减速器放置。图纸 试试这段代码，让我知道你的情况。
(defun c:Test (/ _Line s l e i e1 e2 p)
;; Author: Tharwat Al Shoufi ~ 21.Sep.2013 ;;
(defun _Line (a b)
(entmakex (list '(0 . "LINE")
(cons 10 a)
(cons 11 b)
'(8 . "MECH-HVAC-FITTING-RED-pnt")
)
)
)
(if
(and (if (tblsearch "BLOCK" "REDUCER")
t
(progn
(alert "Block is not found <!>")
nil
)
)
(if (tblsearch "LAYER" "MECH-HVAC-FITTING-RED-pnt")
t
(progn
(alert "Layer is not found <!>")
nil
)
)
(progn (princ "\n Select Outer Profile :")
(setq s (ssget '((0 . "LWPOLYLINE")
(-4 . "<OR")
(90 . 4)
(90 . 5)
(-4 . "OR>")
)
)
)
)
)
(repeat (setq i (sslength s))
(setq e (entget (ssname s (setq i (1- i))))
l (mapcar 'cdr
(vl-remove-if-not '(lambda (u) (eq (car u) 10)) e)
)
)
(if (setq p (vlax-invoke
(vlax-ename->vla-object (_Line (car l) (caddr l)))
'intersectWith
(vlax-ename->vla-object (_Line (cadr l) (nth 3 l)))
acExtendnone
)
)
(entmakex (list '(0 . "INSERT")
(cons 10 p)
'(2 . "REDUCER")
'(8 . "MECH-HVAC-FITTING-RED-pnt")
'(41 . 1.)
'(42 . 1.)
'(43 . 1.)
)
)
)
)
)
(princ)
)
谢谢“Tharwat”。。。。感谢您的快速回复。。。。。。如果可能的话，请按照我下面提到的增强代码
我想一次选择多个多边形，线应该在虚拟层中，减速点应该是“MECH HVAC FITTING RED pnt”层。
我更新了代码以满足您的需要，请尝试并告诉我。 非常感谢tharwat。它正在工作D： D:D
太好了，不客气
它以前是在单数选择上工作的 plz帮助我将减速器放置在到线交点和时间线捕捉处
你好，
任何人请帮我把减速机放在两条线的交点上，并捕捉到一条时间线。
欲了解更多信息，请参阅附图。
我有一些这样的工作。。
减速机外形在那个里，我想把减速机块正好放在两条线的交点上。每次我必须画两条对角线和精确交点，我必须放置减速块。我需要一个工具，我只想选择外部轮廓和工具减速器的位置，并在一个时间线sud是捕捉。DWG显示该位置所需的交点，我想放置减速器并捕捉到时间线。。。。
这是怎么回事？？？
为什么你问的问题和OP在这个帖子里问的一样？
你试过我上面贴的代码了吗？
你好，阿马伦德拉，欢迎来到论坛，
我认为你需要澄清你在追求什么。我看到你的问题与原来的问题略有不同，但我认为你需要提供更多关于你想要什么的信息。 你好
我的问题是一次有两行，怎么做
页:
[1]