张大锤 发表于 2018-4-26 15:32:41

求解-怎样移动带角度的线

(defun c:111()
(setq p1(getpoint))
(setq p2 (getcorner p1))
(setq jiaodu (ssget "c" p1 p2 '((-4 . "<AND")(0 . "line")(-4 . "AND>"))))
(if (/= nil jiaodu)
(progn
(setq m 0)   
(repeat (sslength jiaodu)                     
(setq ent (ssname jiaodu m))
(setq en (entget ent))
(setq jd1 (cdr(assoc 10 en )))
(setq jd2 (cdr(assoc 11 en )))
(setq an (angle jd1 jd2))
(setq jd3 (rtos an 2 4))
(if (= jd3 "2.3562")
我想把角度2.3562的线移走 但是这句话 要怎么写额。。。有点蒙
)
(setq m(1+ m))                                 
)
))


(setvar "osmode" 695)
(princ)
)

张大锤 发表于 2018-4-26 15:33:48

希望各位前辈 指点一二

bssurvey 发表于 2018-4-26 17:16:22

本帖最后由 bssurvey 于 2018-4-26 17:20 编辑

(setq jd4(getpoint "\n請點搬移後的位置："))
(command "move" ent "" jd1 jd4)
看看是不是您想要的

张大锤 发表于 2018-4-27 08:50:00

bssurvey 发表于 2018-4-26 17:16
(setq jd4(getpoint "\n請點搬移後的位置："))
(command "move" ent "" jd1 jd4)
看看是不是您想要的

3Q3Q 是我要的效果 昨晚测试出来了 但还是很感谢
页: [1]
查看完整版本: 求解-怎样移动带角度的线