指北插件旋转线条后提取终点坐标并自动标注角度代码求助~

逗亦斗霸 · 发表于 2024-9-8 00:14:33

本帖最后由逗亦斗霸于 2024-9-18 12:07 编辑

(defun c:ccc(/ pt1 pt2 pt3 pt4)

(setq jd (getreal "\n角度"))
(setq pt1 (getpoint "\n插入点") )
      (setq pt4 (mapcar '+ pt1 '(0 1000 0)) )
      (setq pt2 (mapcar '+ pt1 '(0 1000 0)) )
(command "line" pt1 pt4 "")
(setq ty1 (entlast))

(setq ang (angle pt1 pt2))
(setq jl (distance pt1 pt2))
(setq pt3 (polar pt1 ang jl))

(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(62 . 1) (cons 90 2) (cons 10 pt1) (cons 10 pt3)))
(setq jd1 (- jd))
(setq ty2 (entlast))
(command "rotate" ty2 "" pt1 jd1)
      (command "rotate" ty1 ty2 "" pt1)
(command pause)
      (setq ename (car (entsel))
         spt1 (vlax-curve-getstartpoint ename)
         ept1 (vlax-curve-getendpoint ename))
      (setq pz (mapcar '+ pt2 '(0 200 0)) )
      (setq jdjt2 (angle pt1 ept1)
      jljt (distance pt1 pz)
      pz (polar pt1 jdjt2 jljt))
(command "-text" "j" "mc" pz "300" "" "N")
(command "dimangular" pause pause (getpoint))
)a

以上代码能满足我的需求，但确定线条方向后需要点击（第一次点击）红色线条生成指北符号，再分别点击（第二、三次点击）红白线条后还得点击（第四次点击）选取角度标注的位置。虽然够用，却也稍显麻烦，请问怎么样减少这四次点击（选取）的步骤？

第一次点击跟(car (entsel)有关，但不知道怎么替代。尝试将白色为定义直线，红色定义为多段线，但也没有将选取的代码弄成功。

(command "line" (setq p1(getpoint "第一点:")) (setq p2(getpoint p1 "第二点:")) "")
(setq LN1 (entlast))
(command "line" (setq p3(getpoint "第三点:"))(setq p4(getpoint p3"第四点:")) "")
(setq LN2 (entlast))
(command "_dimangular" (list LN1 p1) (list LN2 p3) (mapcar '(lambda(x y) (/(+ x y)2)) p1 p3))

此外，尝试用以上代码替代角度标注，但好像也不太行。

求各位大佬帮忙，谢谢~

xyp1964 · 发表于 2024-9-8 17:12:20

本帖最后由 xyp1964 于 2024-9-9 07:48 编辑

(defun c:tt ()
"指北针"
(if (and (setq jd (getreal "\n角度: " ))
(setq p1 (getpoint "\n插入点: "))
)
(progn
(setvar "osmode" 0)
(setq p2 (polar p1 0 1000))
(command "line" p1 p2 "")
(setq s1 (entlast)
dr (* (/ jd 180.) pi)
p3 (polar p1 (- dr) 1000)
p4 (polar p1 (- dr) 1200)
p5 (polar p1 (*(- dr)0.5) 600)
)
(command "line" p1 p3 "")
(setq s2 (entlast))
(command "chprop" s2 "" "c" 1 "")
(command "text" "j" "mc" p4 300 0 "N")
(command "dimangular" (list s2 p3)(list s1 p2) p5)
)
)
(princ)
)

逗亦斗霸 · 发表于 2024-9-8 21:18:09

xyp1964 发表于 2024-9-8 17:12

感谢版主回复~
请问no function definition: UREAL是怎么回事？

逗亦斗霸 · 发表于 2024-9-10 09:09:18

xyp1964 发表于 2024-9-8 17:12

原来修改了回复不会有帖子的提示……

再请问一下版主，因为我想实现旋转功能，角度只是相对于直线的夹角，可以实现吗？

另外可否解释一下dr (* (/ jd 180.) pi)是什么意思？特别是180后面的那个点的作用，谢谢~

逗亦斗霸 · 发表于 2024-9-17 14:56:21

xyp1964 发表于 2024-9-8 17:12

虽然还是没完全看懂版主的这段代码，但提供了解决的思路，结合其他的代码已经搞定了我的需求，再次感谢~

账号		自动登录	找回密码
密码			注册

[提问] 指北插件旋转线条后提取终点坐标并自动标注角度代码求助~

本帖子中包含更多资源

相关帖子