怎么求多段线与多段线相交部分的面积

changyiran

Andyhon 发表于 2012-9-19 10:33  ... 恰好是面域...  您再想想 与 (setq en(entlast)) 的 en 是同是异?  在 Intersect 之后 (entget en1) ? ...

已经解决了，如果能创建出面域的话，创建后的面域图元名和进行交集运算时选择的第一个面域的图元名是相同的，因此该图元名是能返回图元表的，如果创建不出面域即空面域时是返回不了图元表的，呵呵！也是在老师的帮助下突然解决的，特别感谢！

changyiran

使用手机老是看不到G版的精彩点评，真是郁闷！

革天明

changyiran 发表于 2012-9-18 17:54
听G版的就把自己写的发上来，还望各位指教！

看看命令名，这个程序来自于吴永进 林美樱的ACAD完全应用指南
(defun c:lsp_45()
(setvar "cmdecho" 0)
(setq pt (getpoint "\n选取点: "))
(while pt
(setvar "cecolor" "1")
(command "bpoly" pt "")
(setq en (entlast))
(if (/= en nil)
(progn
(command "area" "o" en)
(setq aa (getvar "area"))
(redraw en 3)
(alert (strcat "面积=" (rtos aa 2)))
)
)
(entdel en)
(setvar "cecolor" "bylayer")
(setq pt (getpoint "\n选取点: "))      
)
(prin1)
)  

changyiran

革天明 发表于 2012-9-19 17:52  看看命令名，这个程序来自于吴永进 林美樱的ACAD完全应用指南  (defun c:lsp_45()  (setvar"cmdecho" 0 ...

大侠清楚如何用vla对象创建面域吗，就是g版点评里说的用vla对象创建面域再捕捉错误，我对vla这一块不是太熟。

革天明

changyiran 发表于 2012-9-19 18:00
大侠清楚如何用vla对象创建面域吗，就是g版点评里说的用vla对象创建面域再捕捉错误，我对vla这一块不是太 ...

Vlisp我也不懂

Q1241274614

有没有不用面域的方法，通过点集合求2个多段线外围图的呀。