[其他]：XD，看看这个程序

eachy

xdrx_isinside 莫名其妙？拾取点位置不同将有不同的结果。

2. 
   
3. ;;API与CAD命令结合, 因为 xdrx_isinside 的 BUG 最后的局部效果不理想
   
4. ;;
   
5. (if (not $xdtb_globle_scale)
   
6.   (setq $xdtb_globle_scale 100.)
   
7. )
   
8. (defun c:test (/ pt e e0 ss sp ep sp1 ep1 pts)
   
9.   ;;先关闭轴线图层
   
10.   (setq pt (getpoint "\n选择内部点: "))
    
11.   (if (setq e (bpoly pt));;生成边界
    
12.     (progn
    
13.       ;;======程序结构===========;;
    
14.       (xdrx_begin)               ;;标记程序开始
    
15.       (xdrx_sysvar_push "osmode");;保存系统变量
    
16.       (setvar "osmode" 0)
    
17.       ;;=========================
    
18.       (vl-cmdf ".offset" (* 2.85 $xdtb_globle_scale) (list (entlast) pt) pt "");;向内偏移
    
19.       (setq e0         (entlast)
    
20.             pts         ($xdlsp_pline_vertex e0)
    
21.       )
    
22.       ;;生成园点
    
23.       (mapcar '(lambda (x y / midp p1 p2 p0)
    
24.                  (setq midp (xdrx_midp x y)
    
25.                        p0   (if        (xdrx_isinside
    
26.                                   (polar midp
    
27.                                          (+ (angle x y) _pi2)
    
28.                                          (* 1.5 $xdtb_globle_scale)
    
29.                                   )
    
30.                                   e0
    
31.                                 )
    
32.                               (polar midp
    
33.                                      (+ (angle x y) _pi2)
    
34.                                      (* 1.5 $xdtb_globle_scale)
    
35.                               )
    
36.                               (polar midp
    
37.                                      (- (angle x y) _pi2)
    
38.                                      $xdtb_globle_scale
    
39.                               )
    
40.                             )
    
41.                        p1   (polar p0 (angle x y) (* 2 $xdtb_globle_scale))
    
42.                        p2   (polar p0 (angle x y) (* -2. $xdtb_globle_scale))
    
43.                  )
    
44.                  (vl-cmdf ".donut" "0" (* 1.5 $xdtb_globle_scale)  p0 p1 p2 "")
    
45.                )
    
46.               pts
    
47.               (append (cdr pts) (list (car pts)))
    
48.       )
    
49.       (vl-cmdf ".copy" (list e0 pt) "" '(0. 0. 0.) "@");;生成偏移线的副本
    
50.       (xdrx_setmark);;设置标记
    
51.       (vl-cmdf ".explode" (entlast) "");;分解副本偏移线
    
52.       (xdrx_setsstodb (xdrx_getss) 0);;获取分解后的实体并放入内部数据库
    
53.       (while (setq e1 (xdrx_getentdata 0));;取出内部第一数据库实体
    
54.         (setq sp     (xdrx_getentdxf 10);;起点
    
55.               ep     (xdrx_getentdxf 11);;端点
    
56.               midp   (xdrx_midp sp ep)
    
57.              
    
58.               pangle (angle sp ep)
    
59.               sp1    (polar sp (+ pangle pi) (* 3 $xdtb_globle_scale));;起点延伸
    
60.               ep1    (polar ep pangle (* 3 $xdtb_globle_scale));;端点延伸
    
61.         )
    
62.         (if (xdrx_isinside sp1 e0);;判断延伸点是否在副本偏移线内部
    
63.           (xdrx_modent 10 sp1);;如果在内部修改起点
    
64.         )
    
65.         (if (xdrx_isinside ep1 e0)
    
66.           (xdrx_modent 11 ep1);;端点延伸后在内部修改端点
    
67.         )
    
68.       )
    
69.       (vl-cmdf ".pedit" "m" (xdrx_getss) "" "y" "j" "1" "w" $xdtb_globle_scale "");;利用2002中的 "M" 和 "J" 选项连接线段并加粗
    
70.       (xdrx_entity_delete e0)
    
71.       (xdrx_entity_delete e)
    
72.       ;;========================;;
    
73.       (xdrx_sysvar_pop)         ;;恢复系统变量
    
74.       (xdrx_end)                ;;标记程序结束
    
75.       ;;========================;;
    
76.       (princ)
    
77.     )
    
78.   )
    
79. )

<br /> ;;API与CAD命令结合, 因为 xdrx_isinside 的 BUG 最后的局部效果不理想<br /> ;;<br /> (if (not $xdtb_globle_scale)<br />   (setq $xdtb_globle_scale 100.)<br /> )<br /> (defun c:test (/ pt e e0 ss sp ep sp1 ep1 pts)<br />   ;;先关闭轴线图层<br />   (setq pt (getpoint "\n选择内部点: "))<br />   (if (setq e (bpoly pt));;生成边界<br />     (progn<br />       ;;======程序结构===========;;<br />       (xdrx_begin)               ;;标记程序开始<br />       (xdrx_sysvar_push "osmode");;保存系统变量<br />       (setvar "osmode" 0)<br />       ;;=========================<br />       (vl-cmdf ".offset" (* 2.85 $xdtb_globle_scale) (list (entlast) pt) pt "");;向内偏移<br />       (setq e0         (entlast)<br />             pts         ($xdlsp_pline_vertex e0)<br />       )<br />       ;;生成园点<br />       (mapcar '(lambda (x y / midp p1 p2 p0)<br />                  (setq midp (xdrx_midp x y)<br />                        p0   (if        (xdrx_isinside<br />                                   (polar midp<br />                                          (+ (angle x y) _pi2)<br />                                          (* 1.5 $xdtb_globle_scale)<br />                                   )<br />                                   e0<br />                                 )<br />                               (polar midp<br />                                      (+ (angle x y) _pi2)<br />                                      (* 1.5 $xdtb_globle_scale)<br />                               )<br />                               (polar midp<br />                                      (- (angle x y) _pi2)<br />                                      $xdtb_globle_scale<br />                               )<br />                             )<br />                        p1   (polar p0 (angle x y) (* 2 $xdtb_globle_scale))<br />                        p2   (polar p0 (angle x y) (* -2. $xdtb_globle_scale))<br />                  )<br />                  (vl-cmdf ".donut" "0" (* 1.5 $xdtb_globle_scale)  p0 p1 p2 "")<br />                )<br />               pts<br />               (append (cdr pts) (list (car pts)))<br />       )<br />       (vl-cmdf ".copy" (list e0 pt) "" '(0. 0. 0.) "@");;生成偏移线的副本<br />       (xdrx_setmark);;设置标记<br />       (vl-cmdf ".explode" (entlast) "");;分解副本偏移线<br />       (xdrx_setsstodb (xdrx_getss) 0);;获取分解后的实体并放入内部数据库<br />       (while (setq e1 (xdrx_getentdata 0));;取出内部第一数据库实体<br />         (setq sp     (xdrx_getentdxf 10);;起点<br />               ep     (xdrx_getentdxf 11);;端点<br />               midp   (xdrx_midp sp ep)<br />               <br />               pangle (angle sp ep)<br />               sp1    (polar sp (+ pangle pi) (* 3 $xdtb_globle_scale));;起点延伸<br />               ep1    (polar ep pangle (* 3 $xdtb_globle_scale));;端点延伸<br />         )<br />         (if (xdrx_isinside sp1 e0);;判断延伸点是否在副本偏移线内部<br />           (xdrx_modent 10 sp1);;如果在内部修改起点<br />         )<br />         (if (xdrx_isinside ep1 e0)<br />           (xdrx_modent 11 ep1);;端点延伸后在内部修改端点<br />         )<br />       )<br />       (vl-cmdf ".pedit" "m" (xdrx_getss) "" "y" "j" "1" "w" $xdtb_globle_scale "");;利用2002中的 "M" 和 "J" 选项连接线段并加粗<br />       (xdrx_entity_delete e0)<br />       (xdrx_entity_delete e)<br />       ;;========================;;<br />       (xdrx_sysvar_pop)         ;;恢复系统变量<br />       (xdrx_end)                ;;标记程序结束<br />       ;;========================;;<br />       (princ)<br />     )<br />   )<br /> )