QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
求助:怎样将cad中的点批量转换成十字线,两条线段相交的那种,不是点样式中的?
发表于 2011-1-24 22:45:45 | 显示全部楼层 来自: 中国台湾
;; 雏型 For test only2 n+ h2 I( e& x0 k' U4 W" J; c) C6 y
(defun C:test ()
+ |5 H( p% C7 v$ d7 J. T$ T1 h   (cond2 U! v; Q6 K% z6 O
    ((setq ss (ssget "X" '((0 . "POINT"))))
' [5 e: A/ o; m/ Y0 r* S# \4 {- Q     (setq i 0
: a! w, U5 w* H* V9 {          v1 (/ Pi 2)$ Q! ?0 i5 f2 Y- r
          v3 (* v1 3)
' t+ _, f7 S% k- W- F          dd 1    ; 改 dd 值 ==> 十的大小4 D1 j& Y- b5 }/ ?
     )
6 N9 O' ~# q. o. d; j     
/ z3 T7 D% z" P- O: @6 M+ ^1 Z     (while (setq ee (ssname ss i))2 Z6 ]1 ]5 A; D- j  e. A
       (setq pt (cdr (assoc 10 (entget ee)))
) L/ k) Z5 C5 e2 h2 R4 G- x' l( n             pa (polar pt Pi dd)
6 p5 v2 g# a; o: K) J+ d1 q: C3 y) s             pb (polar pt 0.0 dd)
, Z& c0 `- Y8 n- H% ~$ h# Y             pc (polar pt v1 dd)
* G  I3 S* _: I* z1 V1 |             pd (polar pt v3 dd)" F/ k2 w/ c" F4 e4 B* k
              i (1+ i)
1 r: \) R, {# Q5 Z8 j- P6 e       )
6 F: Y% w7 R5 n1 H1 R4 c* \# K       (entdel ee)
. ?& m8 M- n! k4 M7 p: T       (command "LINE" "none" pa "none" pb "")) {; c6 T$ W. D
       (command "LINE" "none" pc "none" pd "")' o& A  l9 {& ^' @; w# z; a
   )))
2 O4 y0 Z1 E  k)

评分

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

查看全部评分

 楼主| 发表于 2011-1-25 20:20:23 | 显示全部楼层 来自: 中国陕西西安
谢谢你的回复,本人CAD开发学的很菜,不知道怎没应用,还请高手指点,谢谢。QQ:280236670
发表于 2011-1-25 21:35:24 | 显示全部楼层 来自: 中国台湾
现成的教学
3 ^5 \/ X$ h: q3 u2 b6 j- X) ]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 )

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