【源码分享】编程处女作-留念！功能：天正门窗居中（批量改图元均可参考）

mj0000

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

hnfsf

调整天正门窗居中
(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

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

idjin

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

aihuyujian

我了个去 必须支持

bzhjl

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

434939575

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

love1030312

好东西可惜 限权不够

dadiwusheng

谢谢分享啊！！！

GamIng

xiguao 发表于 2011-6-17 15:29
??。还有**啊，selecti-o-n-s-et

为什么论坛会改成**？难道这也算敏感词汇？