（修改边长）程序不会做了水平还是差的很远

youyou3810

1. (defun c:tt1 ()
   
2. 
   
3.   (setq i 0)
   
4.     (setq pline (car (entsel)))
   
5.     (setq ent (entget pline))
   
6.     (setq pts nil)
   
7.     (repeat (length ent)
   
8.     (if (= (car (nth i ent)) 10)
   
9.         (setq pts (append pts (list (cdr (nth i ent)))))
   
10.     )
    
11.     (setq i (1+ i))
    
12.     )
    
13.     (print pts)
    
14.   (nth 0 pts)
    
15. 
    
16.   (setq pt1 (getpoint "点1:"))
    
17.   (setq pt2 (getpoint pt1 "点2:"))
    
18.   (setq pt3 (getpoint pt2 "点3:"))
    
19.   (setq ag0 (angle pt1 pt2))    ;p1p2角度
    
20.   (setq  len (distance pt1 pt3)
    
21.   ag  (angle pt1 pt3)
    
22.   )
    
23.   (setq pt2 (polar pt1 ag0 (* len (cos (- ag ag0)))))
    
24.   (setq pt4 (polar pt1 (+ (/ pi 2.) ag0) (* len (sin (- ag ag0)))))
    
25.   
    
26. ; (command "pline" pt1 pt2 pt3 pt4 "c" "")
    
27. (setq ent(subst(cons 10 pt1)(assoc 10 ent)ent))
    
28.   (entmod ent);
    
29. )

(defun c:tt1 ()<br /> <br />   (setq i 0) <br />     (setq pline (car (entsel))) <br />     (setq ent (entget pline)) <br />     (setq pts nil) <br />     (repeat (length ent) <br />     (if (= (car (nth i ent)) 10) <br />         (setq pts (append pts (list (cdr (nth i ent))))) <br />     ) <br />     (setq i (1+ i)) <br />     ) <br />     (print pts)<br />   (nth 0 pts)<br /> <br />   (setq pt1 (getpoint "点1:"))<br />   (setq pt2 (getpoint pt1 "点2:"))<br />   (setq pt3 (getpoint pt2 "点3:"))<br />   (setq ag0 (angle pt1 pt2))    ;p1p2角度<br />   (setq  len (distance pt1 pt3)<br />   ag  (angle pt1 pt3)<br />   )<br />   (setq pt2 (polar pt1 ag0 (* len (cos (- ag ag0)))))<br />   (setq pt4 (polar pt1 (+ (/ pi 2.) ag0) (* len (sin (- ag ag0)))))<br />   <br /> ; (command "pline" pt1 pt2 pt3 pt4 "c" "")<br /> (setq ent(subst(cons 10 pt1)(assoc 10 ent)ent)) <br />   (entmod ent);<br /> )

youyou3810

1. (defun c:tt1 ()
   
2. 
   
3.   (setq i 0)
   
4.     (setq pline (car (entsel)))
   
5.     (setq ent (entget pline))
   
6.     (setq pts nil)
   
7.     (repeat (length ent)
   
8.     (if (= (car (nth i ent)) 10)
   
9.         (setq pts (append pts (list (cdr (nth i ent)))))
   
10.     )
    
11.     (setq i (1+ i))
    
12.     )
    
13.     (print pts)
    
14.   (nth 0 pts)
    
15. 
    
16.   (setq pt1 (getpoint "点1:"))
    
17.   (setq pt2 (getpoint pt1 "点2:"))
    
18. 
    
19.     (setq ent(subst(cons 10 pt1)(assoc 10 ent)ent))
    
20.   (entmod ent);重生成更新图元，显示到鼠标 位置
    
21. )

(defun c:tt1 ()<br /> <br />   (setq i 0) <br />     (setq pline (car (entsel))) <br />     (setq ent (entget pline)) <br />     (setq pts nil) <br />     (repeat (length ent) <br />     (if (= (car (nth i ent)) 10) <br />         (setq pts (append pts (list (cdr (nth i ent))))) <br />     ) <br />     (setq i (1+ i)) <br />     ) <br />     (print pts)<br />   (nth 0 pts)<br /> <br />   (setq pt1 (getpoint "点1:"))<br />   (setq pt2 (getpoint pt1 "点2:"))<br /> <br />     (setq ent(subst(cons 10 pt1)(assoc 10 ent)ent))<br />   (entmod ent);重生成更新图元，显示到鼠标 位置<br /> )

1291500406

youyou3810 发表于 2019-5-5 23:25
取得图元名后 起点 端点坐标怎么取出来

https://wenku.baidu.com/view/580 ... 6baf1ffc4fe398.html

taoyi0727

你想要的效果都没有表达清楚
搞不了 我的水平也不高

修改2点的位置 和修改边长是不一样的
修改位置就用夹点拖动就行了噻

youyou3810

(setq ent0 (subst (nth 0 pts) (pt1) ent))
  (entmod ent0);重生成更新图元
就这两句了

youyou3810

(setq ent(subst(cons 10 pt1)(assoc 10 ent)ent))

youyou3810

(setq ent(subst(cons 10 pt1)(assoc 10 ent)ent)) 如何取到其他坐标

taoyi0727

看不懂你这个程序是干什么的
(setq ssdata (subst new_rr old_rr ssdata))这句完全没用

youyou3810

修改封闭多段线的一条边的边长，代码我写不下去了,现在只想修改一个边的边长，发现这也很难

youyou3810

这是目前效果
1 本意修改点2位置
2 可以修改任意边长就好了

youyou3810

(setq ent(subst(cons 10 pt2)(assoc 10 (nth 1 pts))ent)) 选中pt2点 调整(assoc 10 (nth 1 pts))这个点位没有作用