slzlfs 发表于 2011-4-27 07:47:21

如何提取任意四边形的长度和角度,并将参数写到多边形里

如何提取任意四边形的长度和角度,并将参数写到多边形里，并且每个顶点给标记号是那个点，效果看附件

slzlfs 发表于 2011-4-28 07:46:50

高手 大侠们 快来啊

slzlfs 发表于 2011-7-28 07:49:44

自己顶一下

zhynt 发表于 2011-7-28 10:18:50


(defun c:test ()
(setq sen (car (entsel "\n选择四边形:")))
(setq        pt_lst (mapcar 'cdr
                     (vl-remove-if '(lambda (x) (/= 10 (car x))) (entget sen))
             )
)
(setq        pta (nth 0 pt_lst)
        ptb (nth 1 pt_lst)
        ptc (nth 2 pt_lst)
        ptd (nth 3 pt_lst)
)
(setq        l1 (distance pta ptb)
        l2 (distance ptb ptc)
        l3 (distance ptc ptd)
        l4 (distance pta ptd)
)
(setq        ang1 (angle pta ptd)
        ang2 (angle pta ptb)
)
(setq        ang3 (angle ptb ptc)
        ang4 (angle ptb pta)
)
(setq        ang5 (angle ptc ptd)
        ang6 (angle ptc ptb)
)
(setq        ang7 (angle ptd pta)
        ang8 (angle ptd ptc)
)
(setq        anga (abs (* (- ang1 ang2) (/ 180.0 pi)))
        angb (abs (* (- ang3 ang4) (/ 180.0 pi)))
        angc (abs (* (- ang5 ang6) (/ 180.0 pi)))
        angd (abs (* (- ang7 ang8) (/ 180.0 pi)))
)
(if (> anga 180)
    (setq anga (- 360 anga))
)
(if (> angb 180)
    (setq angb (- 360 angb))
)
(if (> angc 180)
    (setq angc (- 360 angc))
)
(if (> angd 180)
    (setq angd (- 360 angd))
)
(setq        txt (strcat (rtos l1)
                  ","
                  (rtos l2)
                  ","
                  (rtos l3)
                  ","
                  (rtos l4)
                  ",,,,"
                  (rtos anga)
                  ","
                  (rtos angb)
                  ","
                  (rtos angc)
                  ","
                  (rtos angd)
          )
)
(command "TEXT" "J" "MC" pta "30" "0" "p0" "")
(command "TEXT" "J" "MC" ptb "30" "0" "p1" "")
(command "TEXT" "J" "MC" ptc "30" "0" "p2" "")
(command "TEXT" "J" "MC" ptd "30" "0" "p3" "")
(setq pt (getpoint "\n标注位置:"))
(command "TEXT" pt "30" "0" txt "")
)

ljpnb 发表于 2011-7-28 11:10:47

zhynt 发表于 2011-7-28 10:18 static/image/common/back.gif


每句TEXT后面都多了一对""

zhynt 发表于 2011-7-28 11:26:30

回复 ljpnb 的帖子

难道又是版本的问题，我这里没问题，又或许是字体设置的问题？

ljpnb 发表于 2011-7-28 11:54:33

2010上也试过了，也是出现：
命令:
标注位置:TEXT
当前文字样式:“STANDARD”文字高度:30.0000注释性:否
指定文字的起点或 [对正(J)/样式(S)]:
指定高度 <30.0000>: 30
指定文字的旋转角度 <0>: 0
输入文字: 119.6114,80.6407,119.1888,80.8056,,,,66.903,112.8208,67.1792,113.097
命令: TEST 未知命令“TEST”。按 F1 查看帮助。

zhynt 发表于 2011-7-28 11:57:25

嗯确实多了
页: [1]
查看完整版本: 如何提取任意四边形的长度和角度,并将参数写到多边形里