求助！几百条线段与XY 平面中的夹角！求LSP！已经有高人回答，感谢！

六千棵橡树V

不好意思，没能及时回复大家，辜负大家的好意了！

比如说一条线段经过两点，（0，0，0），（2，3，4）。它与XY平面的夹角我在特性对话框可以找到。是48度，我想求助的是：有没有这样的LSP，可以点一下线段，在其旁边就可以标出来。

六千棵橡树V

sscylh 发表于 2012-9-26 15:11
楼主的dwg是三维的还是二维的?最好楼主能发个dwg文件上来,不然其他人编出来程序了,说不定还并不是你想要的 ...

您说得很对，我表达的不太清楚，谢谢指教！

x_s_s_1

细看涛生 发表于 2012-9-27 18:37
平面的还能投影到XY平面吗？

看看是否满足您的需要

2. (defun l-ang(en / ent pt1 pt2 dis ang)
   
3.   (setq ent(entget en)
   
4. pt1(cdr (assoc 10 ent))
   
5. pt2(cdr (assoc 11 ent))
   
6. dis(sqrt (+ (expt (- (car pt2) (car pt1)) 2)(expt (- (cadr pt2) (cadr pt1)) 2)))
   
7. )
   
8.   (if (equal 0 dis 1e-8) (setq ang "90.0000")(setq ang (angtos (abs(atan(/ (- (caddr pt2)(caddr pt1)) dis)))0 4)))
   
9.   )
   
10. (defun x_ssn (ss / n lst)
    
11.   (repeat (setq N (sslength ss))
    
12.     (setq LST (cons (ssname SS (setq N (1- N))) LST))
    
13.   )
    
14. )
    
15. (defun mid_l (en / )
    
16.   (mapcar '(lambda (x y) (/ (+ x y) 2))
    
17.    (cdr (assoc 11 (entget en)))
    
18.    (cdr (assoc 10 (entget en)))
    
19.   )
    
20. )
    
21. (defun t_mak (l_n t_10 t_11 t_t t_50 t_72 t_73 t_h t_w t_st /)
    
22.   (entmake (list '(0 . "text")
    
23.    '(100 . "AcDbEntity")
    
24.    (cons 8 l_n)
    
25.    '
    
26.     (100 . "AcDbText")
    
27.    (cons 10 t_10)
    
28.    (cons 1 t_t)
    
29.    (cons 40 t_h)
    
30.    (cons 41 t_w)
    
31.    (cons 7 t_st)
    
32.    (cons 72 t_72)
    
33.    (cons 11 t_11)
    
34.    (cons 50 t_50)
    
35.    (cons 73 t_73)
    
36.     )
    
37.   )
    
38. )
    
39. (defun c:test1 ( / ss t_h)
    
40.   (setq ss (ssget '((0 . "line"))))
    
41.   (setq t_h (getreal "\n输入字高："))
    
42.   (mapcar '(lambda (t_t t_11)
    
43.       (t_mak "0" '(0 0 0) t_11 t_t 0 1 0 t_h 0.8 "standard")
    
44.     )
    
45.    (mapcar '(lambda (x) (strcat "与xy平面夹角" (l-ang x) "度"))
    
46.     (x_ssn ss)
    
47.    )
    
48.    (mapcar '(lambda (y) (mid_l y)) (x_ssn ss))
    
49.   )
    
50.   (princ)
    
51. )
    

(defun l-ang(en / ent pt1 pt2 dis ang)<br />   (setq ent(entget en)<br /> pt1(cdr (assoc 10 ent))<br /> pt2(cdr (assoc 11 ent))<br /> dis(sqrt (+ (expt (- (car pt2) (car pt1)) 2)(expt (- (cadr pt2) (cadr pt1)) 2)))<br /> )<br />   (if (equal 0 dis 1e-8) (setq ang "90.0000")(setq ang (angtos (abs(atan(/ (- (caddr pt2)(caddr pt1)) dis)))0 4)))<br />   )<br /> (defun x_ssn (ss / n lst)<br />   (repeat (setq N (sslength ss))<br />     (setq LST (cons (ssname SS (setq N (1- N))) LST))<br />   ) <br /> )<br /> (defun mid_l (en / )<br />   (mapcar '(lambda (x y) (/ (+ x y) 2))<br />    (cdr (assoc 11 (entget en)))<br />    (cdr (assoc 10 (entget en)))<br />   )<br /> )<br /> (defun t_mak (l_n t_10 t_11 t_t t_50 t_72 t_73 t_h t_w t_st /)<br />   (entmake (list '(0 . "text")<br />    '(100 . "AcDbEntity")<br />    (cons 8 l_n)<br />    '<br />     (100 . "AcDbText")<br />    (cons 10 t_10)<br />    (cons 1 t_t)<br />    (cons 40 t_h)<br />    (cons 41 t_w)<br />    (cons 7 t_st)<br />    (cons 72 t_72)<br />    (cons 11 t_11)<br />    (cons 50 t_50)<br />    (cons 73 t_73)<br />     )<br />   )<br /> )<br /> (defun c:test1 ( / ss t_h)<br />   (setq ss (ssget '((0 . "line"))))<br />   (setq t_h (getreal "\n输入字高："))<br />   (mapcar '(lambda (t_t t_11)<br />       (t_mak "0" '(0 0 0) t_11 t_t 0 1 0 t_h 0.8 "standard")<br />     )<br />    (mapcar '(lambda (x) (strcat "与xy平面夹角" (l-ang x) "度"))<br />     (x_ssn ss)<br />    )<br />    (mapcar '(lambda (y) (mid_l y)) (x_ssn ss))<br />   )<br />   (princ)<br /> )<br />

x_s_s_1

六千棵橡树V 发表于 2012-10-23 10:14
您说得很对，我表达的不太清楚，谢谢指教！

对于用UCS的就不行了啊，提醒一下

六千棵橡树V

感谢楼上的朋友！眼泪汪汪地！

前几天又标了几百条空间线段与XY平面的夹角！快！

ygp820601

atan((- z2 z1) (distance p1 p2))

chleiwu

13楼的lsp用了以后角度都显示为0.00000度，需要设置什么么？

六千棵橡树V

chleiwu 发表于 2012-10-31 16:08
13楼的lsp用了以后角度都显示为0.00000度，需要设置什么么？

这说明你的线段都在XY平面内。