怎样画垂直线！

sunnylhj

我想画完L1后，用 (entlast) 添加实体，之后再画L2垂直L1，但不能用(entsel) 选择L1，因为如果这样就不符合程序要求了。

edata

表示不懂啦。。。。

nzl1116

那就用entlast

sunnylhj

nzl1116 发表于 2014-7-10 22:24
那就用entlast

兄弟能说得详细点吗？

nzl1116

sunnylhj 发表于 2014-7-10 23:11
兄弟能说得详细点吗？

我先问问楼主，你这L1直线怎么画出来的，手工画的，还是程序画的？

xyp1964

77077

从楼主的图面理解，可能楼主想画中垂线
个人理解是
1.绘制pt1 pt2时，保存两点坐标，并计算出斜率和中点位置
2.输入垂线段长度，然后以中点为起点绘制pt1 pt2斜率+0.5pi的线段！

ZZXXQQ

2. (defun c:tt ()
   
3. (if (and (setq s1 (entlast))
   
4.           (setq ent (entget s1))
   
5.           (= (cdr(assoc 0 ent)) "LINE")) (progn
   
6.   (setq p1 (cdr(assoc 10 ent))
   
7.         p2 (cdr(assoc 11 ent))
   
8.         ang (angle p1 p2)
   
9.         ds (distance p1 p2)
   
10.         pm (mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2))
    
11.   (entmake
    
12.    (list
    
13.     '(0 . "LINE")
    
14.     (cons 10 pm)
    
15.     (cons 11 (polar pm (+ (/ pi 2) ang) ds))
    
16.     (assoc 8 ent)
    
17.    )
    
18.   )
    
19. ))
    
20. (princ)
    
21. )
    

(defun c:tt ()<br /> (if (and (setq s1 (entlast))<br />           (setq ent (entget s1))<br />           (= (cdr(assoc 0 ent)) "LINE")) (progn<br />   (setq p1 (cdr(assoc 10 ent))<br />         p2 (cdr(assoc 11 ent))<br />         ang (angle p1 p2)<br />         ds (distance p1 p2)<br />         pm (mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2))<br />   (entmake<br />    (list<br />     '(0 . "LINE")<br />     (cons 10 pm)<br />     (cons 11 (polar pm (+ (/ pi 2) ang) ds))<br />     (assoc 8 ent)<br />    )<br />   )<br /> ))<br /> (princ)<br /> )<br />

自贡黄明儒

http://bbs.mjtd.com/thread-109038-1-1.html

sunnylhj

ZZXXQQ 发表于 2014-7-11 07:57

对，就是这个意思！技术男，表达能力不好！谢谢了！