帮忙做一个lisp

838510233

三个点画成个矩形，矩形中间画一条斜线，最好生成多段线结构或一个块。不要L线的

zjsru_18_505

1. (defun C:TT (/ PT1 PT2 PT3 PT4)
   
2.     (if  (and (setq PT1 (getpoint "\n指定第1点:"))
   
3.        (setq PT2 (getpoint PT1 "\n指定第2点:"))
   
4.        (setq PT3 (getpoint PT2 "\n指定第3点:"))
   
5.   )
   
6.   (progn (setq PT4
   
7.       (polar PT1 (- (angle PT2 PT3) 0) (distance PT2 PT3))
   
8.          )
   
9.          (command  "_pline"  "non"  PT1  "non"  PT2  "non"
   
10.       PT3  "non"  PT4  "non"  PT1  "non"  PT3
    
11.       ""
    
12.            )
    
13.   )
    
14.     )
    
15.     (princ)
    
16. )

(defun C:TT (/ PT1 PT2 PT3 PT4)<br />     (if  (and (setq PT1 (getpoint "\n指定第1点:"))<br />        (setq PT2 (getpoint PT1 "\n指定第2点:"))<br />        (setq PT3 (getpoint PT2 "\n指定第3点:"))<br />   )<br />   (progn (setq PT4<br />       (polar PT1 (- (angle PT2 PT3) 0) (distance PT2 PT3))<br />          )<br />          (command  "_pline"  "non"  PT1  "non"  PT2  "non"<br />       PT3  "non"  PT4  "non"  PT1  "non"  PT3<br />       ""<br />            )<br />   )<br />     )<br />     (princ)<br /> )

fan_zh

目测用动态块可能更方便

838510233

fan_zh 发表于 2015-1-23 15:46
目测用动态块可能更方便

哦 能帮我写一个吗 听说用ucs. 更方便 不知道怎么写

fan_zh

实际需要写得详细些，就一个矩形画个对角线？

838510233

fan_zh 发表于 2015-1-23 16:13
实际需要写得详细些，就一个矩形画个对角线？

恩  p1连p2连p3连p4连p2

838510233

fan_zh 发表于 2015-1-23 16:13
实际需要写得详细些，就一个矩形画个对角线？

p4 要算出来  才有3个点

fan_zh

2. (defun c:tt()
   
3.         (vl-load-com)
   
4.         (setq pt1 (getpoint "第一点"))
   
5.     (setq pt2 (getcorner pt1))
   
6.         (command "rectang" pt1 pt2 )
   
7.         (command ".pline" pt1 pt2 "")
   
8.         (princ)
   
9. )

(defun c:tt()<br />         (vl-load-com)<br />         (setq pt1 (getpoint "第一点"))<br />     (setq pt2 (getcorner pt1))<br />         (command "rectang" pt1 pt2 )<br />         (command ".pline" pt1 pt2 "")<br />         (princ)<br /> )

838510233

fan_zh 发表于 2015-1-23 17:24

3点画个矩形  你这两点就画出来了，不能用，还有呢斜线要和矩形连成多段线或成块

andymong

你第一点第二点之间的直线与第二点第三点之间的直线的角度要是90度才能是矩形，这个随便点不一定能达到这个要求吧。你应该是要求平行四边形才合理。