[编程申请]：点取封闭的PL线,将面积传入属性块

raobinhsh

1 做一个属性块，属性为绿地地块的编号（1，2，3，4，。。。。。。）和绿地面积，其中编号属性为可见，绿地面积属性为不可见
2 运行程序
3 点取封闭的PL线，提取其面积作为绿地属性写入此带属性图块
4 若此命令是多次运行，将前次运行中属性块的编号加1作为此次编号，并由设计人员确认，若不确认，则由设计人员输入编号
5 其他要求：
A 用LISP语言
B 属性块特征为编号外加上一个圆圈，最好在单独的图层里面

北斗七星

再好能传一个DWG文件过来，这样有个范例，
有空我给你写一个。
我QQ：102697532

qrs

(defun c:TRY()
   (command "layer" "m" "sxk" "c" "1" "" "")
   (setq num (getint "\n 起始号:"))
   (while (setq SS (entsel "\选择线条<退出>: "))
        (setq p0 (getpoint "\n 图块位置:"))
        (command "area" "e" ss)
        (setq mj (getvar"area"))
        (command "insert" "sxk" p0 1.0 1.0 0 mj num)
        (setq num (+ num 1))
       )
)
；附件里是属性块，自己可以调整大小和注记位置

raobinhsh

程序运行成功,非常感谢,如果在程序中加入把被点取封闭的多义线改变颜色,就更好了

qrs

(defun c:TRY()
   (command "layer" "m" "sxk" "c" "1" "" "")
   (setq num (getint "\n 起始号:"))
   (while (setq SS (entsel "\选择线条<退出>: "))
          (command "change" ss "" "p" "c" "3" "")
        (setq p0 (getpoint "\n 图块位置:"))
        (command "area" "e" ss)
        (setq mj (getvar"area"))
        (command "insert" "sxk" p0 1.0 1.0 0 mj num)
         (setq num (+ num 1))
       )
)
;;颜色不满意可以自己改

raobinhsh

当编号为1位数时,编号正好在圆中心,当编号为2位数时,编号就有点偏了,估计应该将左对齐改成中对齐,把他改一下,好吗,我改不来*-*a

jx2008

这个用处不是很大，其他很多专业软件或者小东家园里也有很多这访求面积的程序和工具箱，可以在家园里查找阿

qrs

自己做个属性块，注记做成中对齐就可以了