QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3376|回复: 3
收起左侧

[已答复] 求助:怎样将cad中的点批量转换成十字线

[复制链接]
发表于 2011-1-24 21:07:14 | 显示全部楼层 |阅读模式 来自: 中国陕西西安

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
求助:怎样将cad中的点批量转换成十字线,两条线段相交的那种,不是点样式中的?
发表于 2011-1-24 22:45:45 | 显示全部楼层 来自: 中国台湾
;; 雏型 For test only
3 X, E: N( _6 F$ e" ?(defun C:test ()  b; `0 s' ~$ m
   (cond
" b9 Y7 V/ s0 [1 v" m) d    ((setq ss (ssget "X" '((0 . "POINT"))))
1 _( p/ H/ O! \' g- D. K: R; a     (setq i 0
/ }1 t# J0 n5 N4 ^! V2 p; s2 U: l          v1 (/ Pi 2)
, C. h4 ?  W( @5 P: }          v3 (* v1 3)# P' h7 v* r0 \# k/ M
          dd 1    ; 改 dd 值 ==> 十的大小
: m  y2 }2 `! `3 t# U     ); c  L5 `+ I# _$ @$ r, H
     9 Q/ o0 n, i4 s5 I" v& a  w
     (while (setq ee (ssname ss i))
% T# ^! y5 |7 ^) h       (setq pt (cdr (assoc 10 (entget ee)))
! g* L: g3 {" o  S7 L5 S             pa (polar pt Pi dd)$ T  ]- D# X4 F6 T% X& p
             pb (polar pt 0.0 dd), E% ?  X* G1 D' i
             pc (polar pt v1 dd)+ o7 [: T% a2 P; X( }2 d' {
             pd (polar pt v3 dd)( z7 J* J% q7 s8 H! }7 U
              i (1+ i)
1 N( c7 d: G  c% }5 @1 I2 X! r       )3 g3 _; q  g& [. L$ N! S% ]2 s  Q
       (entdel ee)) |5 p; `$ R9 G) H
       (command "LINE" "none" pa "none" pb "")
! F0 h$ c& U; \       (command "LINE" "none" pc "none" pd "")
& R, ]3 j  p, W, ^   )))
1 _9 Z# m+ Q% q8 x3 N)

评分

参与人数 1三维币 +10 收起 理由
woaishuijia + 10 应助

查看全部评分

 楼主| 发表于 2011-1-25 20:20:23 | 显示全部楼层 来自: 中国陕西西安
谢谢你的回复,本人CAD开发学的很菜,不知道怎没应用,还请高手指点,谢谢。QQ:280236670
发表于 2011-1-25 21:35:24 | 显示全部楼层 来自: 中国台湾
现成的教学
# }$ {0 M) t+ v* l* Qhttp://www.google.com/search?as_ ... +%E6%90%9C%E5%B0%8B
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表