求助：写一个插件

lff763

lff763

希望哪位辛苦一下，给写一下这个插件

st788796

求助帖发"编程申请"
这个不难，用Odcl的Modeless面板无需在图中显示

lff763

st788796：请你给我写一个

st788796

lff763 发表于 2014-10-15 18:19
st788796：请你给我写一个

1. (defun c:tt (/ a b c d p p1 vx)
   
2.   (setq a (getreal "\n A 高: "))
   
3.   (setq b (getangle "\n倾角: "))
   
4.   (setq c (getdist "\n平距: "))
   
5.   (setq d (getreal "\n B 高: "))
   
6.   (cond
   
7.     ((and a b c)
   
8.      (if (setq p (getpoint "\nPoint: "))
   
9.        (progn
   
10.          (setq p1 (polar p b (/ c (sin b))))
    
11.          (entmake (list '(0 . "line") (cons 10 p) (cons 11 p1)))
    
12.        )
    
13.      )
    
14.     )
    
15.     ((and a b d)
    
16.      (if (setq p (getpoint "\nPoint: "))
    
17.        (progn
    
18.          (setq vx (* (/ (- b a) (sin b)) (cos b))
    
19.                p1 (mapcar '+ p (list vx d 0.))
    
20.          )
    
21.          (entmake (list '(0 . "line") (cons 10 p) (cons 11 p1)))
    
22.        )
    
23.      )
    
24.     )
    
25.     ((and a c d)
    
26.      (if (setq p (getpoint "\nPoint: "))
    
27.        (progn
    
28.          (setq p1 (mapcar '+ p (list  c (- b a) 0.)))
    
29.          (entmake (list '(0 . "line") (cons 10 p) (cons 11 p1)))
    
30.        )
    
31.      )
    
32.     )
    
33.     ((and b c)
    
34.      (if (setq p (getpoint "\nPoint: "))
    
35.        (progn
    
36.          (setq vy (* (/ (- b a) (sin b)) (cos b))
    
37.                p1 (mapcar '+ p (list c vy 0.))
    
38.          )
    
39.          (entmake (list '(0 . "line") (cons 10 p) (cons 11 p1)))
    
40.        )
    
41.      )
    
42.     )
    
43.     (t)
    
44.   )
    
45.   (princ)
    
46. )

(defun c:tt (/ a b c d p p1 vx)<br />   (setq a (getreal "\n A 高: "))<br />   (setq b (getangle "\n倾角: "))<br />   (setq c (getdist "\n平距: "))<br />   (setq d (getreal "\n B 高: "))<br />   (cond<br />     ((and a b c)<br />      (if (setq p (getpoint "\nPoint: "))<br />        (progn<br />          (setq p1 (polar p b (/ c (sin b))))<br />          (entmake (list '(0 . "line") (cons 10 p) (cons 11 p1)))<br />        )<br />      )<br />     )<br />     ((and a b d)<br />      (if (setq p (getpoint "\nPoint: "))<br />        (progn<br />          (setq vx (* (/ (- b a) (sin b)) (cos b))<br />                p1 (mapcar '+ p (list vx d 0.))<br />          )<br />          (entmake (list '(0 . "line") (cons 10 p) (cons 11 p1)))<br />        )<br />      )<br />     )<br />     ((and a c d)<br />      (if (setq p (getpoint "\nPoint: "))<br />        (progn<br />          (setq p1 (mapcar '+ p (list  c (- b a) 0.)))<br />          (entmake (list '(0 . "line") (cons 10 p) (cons 11 p1)))<br />        )<br />      )<br />     )<br />     ((and b c)<br />      (if (setq p (getpoint "\nPoint: "))<br />        (progn<br />          (setq vy (* (/ (- b a) (sin b)) (cos b))<br />                p1 (mapcar '+ p (list c vy 0.))<br />          )<br />          (entmake (list '(0 . "line") (cons 10 p) (cons 11 p1)))<br />        )<br />      )<br />     )<br />     (t)<br />   )<br />   (princ)<br /> )

lff763

跪谢了，上面写的只能自动绘制出线段（但线段的方位是固定的，希望线段的方位可以输入方位角，或者线段的方位是随着鼠标移动的方位）。同时希望这个程序能满足下面两个图片上的要求。请再辛苦一下，给修改一下。

lff763

例：
输入A点高：10
确定A点：
输入下一点（倾角（Q)、斜长(X)、平距（P）、标高（B）方位（F））：B
输入标高：40
输入下一点（倾角（Q)、斜长(X)、平距（P）、标高（B）方位（F））：[这时候两点标高已知，加上鼠标的移动的平距（鼠标位移的长度就是一个动态的平距长度），这时希望会在鼠标旁分别显示倾角、平距、方位角值（标高差和平距就可确定倾角），"标高差和平距就可确定倾角”]
输入下一点（倾角（Q)、斜长(X)、平距（P）、标高（B）方位（F））：Q
输入倾角：60
输入下一点（倾角（Q)、斜长(X)、平距（P）、标高（B）方位（F））：F（或者直接用鼠标确定方位）
输入方位：350