mj0000 发表于 2011-6-22 23:16:48

权限太高了，楼主提示下，我也要改个天正对象，不知道怎么改，cad挂了不知道多少次了

hnfsf 发表于 2011-7-27 09:12:02

调整天正门窗居中
(defun c:zz2 ( / ang chuangname d10 d11 d38 d40 d41 dxf md10 md11 mpt0 mpt1 i pi ss yy_temp)
(princ "选择要居中门窗")
(command "_undo" "_begin")
(setq ss (ssget '((0 . "TCH_OPENING"))))
(setq i -1)
(repeat (sslength ss)
    (setq chuangname (ssname ss (setq i (1+ i)))
          yy_temp (entget chuangname)
          mpt0 (cdr (assoc 10 yy_temp)))
    (setq dxf (entget (cdr (assoc 330 (cdr (cdr (cdr yy_temp))))))
          d10 (cdr (assoc 10 dxf))
          d11 (cdr (assoc 11 dxf))
          d40 (cdr (assoc 40 dxf))
          d41 (cdr (assoc 41 dxf))
          d38 (cdr (assoc 38 dxf))      
          ang (angle d10 d11))
    (if (> d41 d40)
      (setq md10 (polar d10 (+ ang (/ pi 2)) (- (/ (+ d40 d41) 2) d41))
            md11 (polar d11 (+ ang (/ pi 2)) (- (/ (+ d40 d41) 2) d41)))
      (setq md10 (polar d10 (+ ang (/ pi 2)) (- (/ (+ d40 d41) 2) d41))
            md11 (polar d11 (+ ang (/ pi 2)) (- (/ (+ d40 d41) 2) d41))))
    (setq mpt1 (@mpt md10 md11))
    (command "_.move" chuangname "" mpt0 mpt1)
)
(command "_undo" "_end")
(princ)
)

herojack 发表于 2011-9-19 22:05:27

天正的lisp接口是有问题，但好像只是其中几个组码有问题，如果保留最基本的几个组码，使用entmake来创建诸如门窗墙等对象，好像就比较少崩溃了；至于只保留哪些组码，这要慢慢尝试，不过路是通的

idjin 发表于 2013-2-6 21:15:41

留帖收藏下！，居然没权限！

aihuyujian 发表于 2013-11-14 13:56:17

我了个去 必须支持

bzhjl 发表于 2014-1-3 17:00:01

所有图元原地缩放
看到这个我就进来了~！

434939575 发表于 2014-4-13 09:05:58

好帖。今天实验下，还要二次调用330组玛。受教了。

love1030312 发表于 2014-5-31 09:40:12

好东西可惜 限权不够

dadiwusheng 发表于 2016-3-29 00:45:24

谢谢分享啊！！！

GamIng 发表于 2016-3-29 10:27:06

xiguao 发表于 2011-6-17 15:29 static/image/common/back.gif
??。还有**啊，selecti-o-n-s-et

为什么论坛会改成**？难道这也算敏感词汇？
页: 1 [2] 3
查看完整版本: 【源码分享】编程处女作-留念！功能：天正门窗居中（批量改图元均可参考）