QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
求助:怎样将cad中的点批量转换成十字线,两条线段相交的那种,不是点样式中的?
发表于 2011-1-24 22:45:45 | 显示全部楼层 来自: 中国台湾
;; 雏型 For test only
% z8 ?, k/ \! G) x  A(defun C:test ()6 ^2 r# C' ~" T6 w6 U
   (cond6 ^; g: [4 b, X( m
    ((setq ss (ssget "X" '((0 . "POINT"))))
! L1 p; T+ v3 X, C/ B     (setq i 0+ q8 s' S  D4 t" [2 Z% v
          v1 (/ Pi 2)( @% T5 U# P# M4 R
          v3 (* v1 3)% o9 V  p3 R3 y+ Z% }
          dd 1    ; 改 dd 值 ==> 十的大小3 O( \( f6 w! ]: S9 i9 X3 \  a
     )
% w3 \# y( ^4 ?) S  _3 i, \     
+ B) ~1 X' B. B6 E9 I6 t     (while (setq ee (ssname ss i))" G9 z( G% D- s! V  ?
       (setq pt (cdr (assoc 10 (entget ee)))
& m- C- D; B7 a2 U             pa (polar pt Pi dd)9 w8 j. E. Y, i2 M. Z: i$ r
             pb (polar pt 0.0 dd)9 g7 t# u5 x4 y9 O, e
             pc (polar pt v1 dd)8 X1 d" Y" U& `$ V
             pd (polar pt v3 dd)
; }# y. A+ ?$ l0 H4 F4 F: U% M( n8 @              i (1+ i)" D( O& e- }) [  q" h2 X* B7 D
       ): t: O! b2 n) P1 V5 W. U
       (entdel ee)
8 u& w  k* c4 `7 p" b8 G6 I! P, e       (command "LINE" "none" pa "none" pb "")1 B% C; \, D* g0 c. V8 B% j
       (command "LINE" "none" pc "none" pd "")
: |6 t  f4 c/ w) U   ))); l$ Q' d: q) Q4 S1 `/ ?
)

评分

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

查看全部评分

 楼主| 发表于 2011-1-25 20:20:23 | 显示全部楼层 来自: 中国陕西西安
谢谢你的回复,本人CAD开发学的很菜,不知道怎没应用,还请高手指点,谢谢。QQ:280236670
发表于 2011-1-25 21:35:24 | 显示全部楼层 来自: 中国台湾
现成的教学6 D1 K' A0 g- w5 n6 o$ D
http://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 )

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