https://www.cnblogs.com/JJBox/p/11614714.html
lisp的我真不知道...c#需要调用arx的函数.
对,我惊这个思路就行。 Bao_lai 发表于 2024-10-13 06:09
对,我惊这个思路就行。
见前面回复 ssyfeng 发表于 2024-10-13 09:11
见前面回复
前面说做虚线,不就是生成边界之后修改线型...
边界本身就不是线,而是一个封闭区 本帖最后由 gzcsun 于 2024-10-14 15:32 编辑
用vla-getboundingbox (setq ed (car (entsel)))
(while (assoc 360 (entget ed))
(setq ed (cdr (assoc 360 (entget ed))))
)
(mapcar 'cdr
(vl-remove-if-not
'(lambda (x) (= (car x) 10))
(entget ed)
)
) (and (setq ob (cdr (assoc 360 (entget obx))))
(setq ob (assoc 360 (entget ob)))
(setq ob (entlast))
(setq nn (vl-cmdf "_.xclip" obx "" "_polyline")
nn (entlast)
)
(equal ob nn)
(setq nn nil)
)
nn
页:
1
[2]