【已解决】ASSOC取直线中某某的问题

wgl7212191

1. (defun getln (PR)
   
2.   (setq mTYPE  "nil"
   
3. PRMPT (strcat "\n 拾取" PR "线 ")
   
4.   )
   
5.   (while (/= mTYPE "LINE")
   
6.     (if (/= (setq TEMP (entsel PRMPT)) nil)
   
7.       (progn
   
8. (setq LN1  (entget (car TEMP))
   
9.        mTYPE (cdr (assoc 0 LN1))
   
10. )
    
11. (if (/= mTYPE "LINE")
    
12.    (print (strcat "不能开 " mTYPE))
    
13. )
    
14.       )
    
15.       (print "Invalid point")
    
16.     )
    
17.   )
    
18. )
    
19. (defun C:BISECT
    
20.        (/ P1 P2 P3 P4 PIK1 PIK2 LN1 P5 P6 ANGA ANGB ANGC TEMP mTYPE)
    
21.   (getln "第一条")
    
22.   (setq P1   (cdr (assoc 10 LN1))
    
23. P2   (cdr (assoc 11 LN1))
    
24. PIK1 (osnap (cadr TEMP) "near")
    
25.   )
    
26.   (getln "第二条")
    
27.   (setq p3   (cdr (assoc 10 LN1))
    
28. P4   (cdr (assoc 11 LN1))
    
29. PIK2 (osnap (cadr TEMP) "near")
    
30.   )
    
31.      ; 取交点和角度
    
32.   (setq P5   (inters P1 P2 P3 P4 nil)
    
33. ANGA (angle P5 PIK1)
    
34. ANGB (angle P5 PIK2)
    
35.   )
    
36.   (if (> ANGA ANGB)
    
37.     (setq ANGC (+ (/ (+ (- (* 2 pi) ANGA) ANGB) 2) ANGA))
    
38.     (setq ANGC (+ (/ (- ANGB ANGA) 2) ANGA))
    
39.   )
    
40.      ; 从交点绘制平分线到一定长度
    
41.   (command "LINE" P5 (polar P5 ANGC (distance P5 PIK1)) "")
    
42.   (prin1)
    
43. )
    

(defun getln (PR)<br />   (setq mTYPE  "nil"<br /> PRMPT (strcat "\n 拾取" PR "线 ")<br />   )<br />   (while (/= mTYPE "LINE")<br />     (if (/= (setq TEMP (entsel PRMPT)) nil)<br />       (progn<br /> (setq LN1  (entget (car TEMP))<br />        mTYPE (cdr (assoc 0 LN1))<br /> )<br /> (if (/= mTYPE "LINE")<br />    (print (strcat "不能开 " mTYPE))<br /> )<br />       )<br />       (print "Invalid point")<br />     )<br />   )<br /> )<br /> (defun C:BISECT<br />        (/ P1 P2 P3 P4 PIK1 PIK2 LN1 P5 P6 ANGA ANGB ANGC TEMP mTYPE)<br />   (getln "第一条")<br />   (setq P1   (cdr (assoc 10 LN1))<br /> P2   (cdr (assoc 11 LN1))<br /> PIK1 (osnap (cadr TEMP) "near")<br />   )<br />   (getln "第二条")<br />   (setq p3   (cdr (assoc 10 LN1))<br /> P4   (cdr (assoc 11 LN1))<br /> PIK2 (osnap (cadr TEMP) "near")<br />   )<br />      ; 取交点和角度<br />   (setq P5   (inters P1 P2 P3 P4 nil)<br /> ANGA (angle P5 PIK1)<br /> ANGB (angle P5 PIK2)<br />   )<br />   (if (> ANGA ANGB)<br />     (setq ANGC (+ (/ (+ (- (* 2 pi) ANGA) ANGB) 2) ANGA))<br />     (setq ANGC (+ (/ (- ANGB ANGA) 2) ANGA))<br />   )<br />      ; 从交点绘制平分线到一定长度<br />   (command "LINE" P5 (polar P5 ANGC (distance P5 PIK1)) "")<br />   (prin1)<br /> )<br />

上面代码是“Visual LISP  及 及VBA for AutoCAD 2000 程序 123例” 中一段代码，功能是画两条直线的角平分线。有个问题想请教一下。
assoc 10 LN1 和assoc 11 LN1应该是取某直线的两个端点，为什么是10和11，其他序号可以取出什么？比如assoc 8 LN1会取出什么？
取出来的是名称是什么？我的标题中用了某某

sicky111

你用(entget(car(entsel)))选取线段看一下里面有什么！

marting

建议看下联机帮助文件， DXF 部分

wgl7212191

sicky111 发表于 2018-10-25 00:05
你用(entget(car(entsel)))选取线段看一下里面有什么！

这句提示语法错误