461045462 发表于 2012-8-7 20:36:09

本帖最后由 461045462 于 2012-8-7 20:44 编辑

yjr111 发表于 2012-8-7 19:49 http://bbs.mjtd.com/static/image/common/back.gif


我是在2004测试，不知为什么不行？
谢谢yjr111 ！
测试图附上：


在2007下通过。
谢谢！

Andyhon 发表于 2012-8-7 20:37:04

先确认:
Command: !acet-ent-geomextents
#<SUBR @03dc244c <EXRXSUBR>>

Command: !Mid_pt
#<SUBR @043ca76c MID_PT>

357785513 发表于 2012-8-7 21:23:22

试了院长的,发现院长的超过10000个以上就有好多连不上,且好慢

357785513 发表于 2012-8-7 21:26:59

请输入缩放比例<0.5>
; 错误: 参数类型错误: lselsetp nil

vlisp2012 发表于 2012-8-7 21:55:01

win7cad2010
请输入缩放比例<0.5>
; 错误: 参数类型错误: lselsetp nil

ZZXXQQ 发表于 2012-8-7 23:45:16

抛砖引玉

(defun c:tt ()
(setvar "CMDECHO" 0)
(command "_.UNDO" "BE")
(if (and (setq fac (getreal "\n缩放比率 :"))
          (setq ss (ssget '((0 . "INSERT") (2 . "ltg"))))) (progn
(setq i 0)
(repeat (sslength ss)
   (setq en (ssname ss i))
   (command "_.EXPLODE" en)
   (setq ent (entget(entlast))
         pc (cdr(assoc 10 ent))
         r (cdr(assoc 40 ent))
         dr (- r (* r fac)))
   (command "_U")
   (command "_SCALE" en "" pc fac)
   (command "_LENGTHEN" "DE" dr "end" (polar pc pi r) "end" (polar pc 0 r) "")
   (setq i (1+ i))
)
))
(command "_.UNDO" "E")
(setvar "CMDECHO" 1)
(princ)
)

yjr111 发表于 2012-8-8 00:13:20

ZZXXQQ 发表于 2012-8-7 23:45 static/image/common/back.gif
抛砖引玉

有点问题，可能需要zoom...

xyp1964 发表于 2012-8-8 00:27:39

不受方向的限制

xyp1964 发表于 2012-8-8 00:36:21

本帖最后由 xyp1964 于 2012-8-8 00:42 编辑

适应复杂图块

YAOSHIWEI 发表于 2012-8-8 09:52:15

值得学习
页: 1 [2] 3
查看完整版本: 自动连上