插入块

OWEN7

• (defun c:T1 (/ blk-name)
  
•   (while (NOT (setq blk-name
  
•                      (ssget ":s:e" '((0 . "insert")))
  
•               )
  
•          )
  
•   )
  
•   (setq blk-name (cdr (assoc 2 (entget (ssname blk-name 0)))))
  
•   (mapcar
  
•     '(lambda (x)
  
•        (command "insert" blk-name "none" x "1" "1" "0")
  
•      )
  
•     (mapcar '(lambda (x) (trans (cdr (assoc 10 (entget x))) 0 1))
  
•             (cdr (reverse
  
•                    (mapcar 'cadr (ssnamex (ssget '((0 . "CIRCLE")))))
  
•                  )
  
•             )
  
•     )
  
•   )
  
•   (princ)
  
• )
  
  

preone

wowan1314 发表于 2013-6-9 09:58
楼主，发帖后如无必要，不要去改帖子。 这样方便后来人从你的问题中找到各自的答案。

我还帮你精简了下 ...

(cdr (reverse
       (mapcar 'cadr (ssnamex (ssget '((0 . "CIRCLE")))))
     )
)
上面这句 可不可以这样：
(vl-remove-if
    '(lambda (x) (listp x))
    (mapcar 'cadr (ssnamex (ssget '((0 . "CIRCLE")))))
  )
我也不知道，才学

asd19400

能否把圆心改为形心，矩形的形心

【KAIXIN】

圆心很简单的，直接遍历组码40对应的坐标，插入块就行

wowan1314

上面程序最主要的就是求PT_LST。。

最后的mapcar意思是按pt_lst这个点表来插入块。

所以你把pt_lst换成圆的插入点的表就可以了。

OWEN7

;;框选交点布块 Written by carrot1983 2009-02-01
(defun C:TT2 (/              BLOCK_NAME        E         ELIST          ENAMES
             E_LINE   I               PT        PT_INTERS          PT_LIST
             SS              V10      V11        V5
            )
  (setvar "CMDECHO" 0)
  (if (and (setq E_LINE (car (entsel "\n单选轴线角度执行UCS命令: ")))
           (= (cdr (assoc 0 (entget E_LINE))) "LINE")
      )
    (command "_.UCS" "NEW" "OBJECT" E_LINE)
  )
  (if (and (setq E (car (entsel "\n单选块: ")))
           (setq ELIST (entget E))
           (= (cdr (assoc 0 ELIST)) "INSERT")
           (setq BLOCK_NAME (cdr (assoc 2 ELIST))) ;_块名
           (princ (strcat "块名为 " BLOCK_NAME))
           (princ "\n选择形心")
           (setq SS (ssget '((0 . "circle"))))
      )
    (progn

      (repeat (setq I (sslength SS))
        (setq ENAMES (cons (ssname SS (setq I (1- I))) ENAMES))
      )

      (foreach E1 ENAMES
        (setq ELIST (entget E1))
        (setq cen_list(cdr(assoc 10 ELIST)))
         )

      (mapcar '(lambda (PT)
                 (command ".-INSERT"
                          BLOCK_NAME
                          "NONE"
                          (trans PT 0 1)
                          "1"
                          "1"
                          "0"
                 )
               )
             cen_list
      )

    )
  )
  (command "_.UCS" "WORLD")
  (setvar "CMDECHO" 1)
  (princ)
)



结果不行，为什么。

wowan1314

(setq cen_list(cdr(assoc 10 ELIST)))==>
(setq cen_list (cons (cdr(assoc 10 ELIST)) cen_list))

OWEN7

(setq cen_list (cons (cdr(assoc 10 ELIST)) cen_list)) 搞定， 编程真痛苦，稍微忽略一点点，被告失败。谢谢wowan高手。

OWEN7

为什么布置了3个块，  检查不出问题。。。

xiabin68

手机路过，什么也看不到，只能看回复

xiaxiang

许久不回帖了，看到楼主这个贴忍不住回一下。
什么叫“搞好了，封贴 ”？
如果是这样的话，论坛大部分贴子都该被封了，因为问题都得到了解决，
不论是自己给的还是别人给的答案。
那还不如请坛主设置一个解决后自动删除的功能，但这还叫论坛吗？
不成了私密会所了吗？

仲文玉

这种做法确实很不妥，别人提问后，最终在大家帮助、努力下会贴出完整代码，这才是论坛！
而现在连主题都改了，以后人家还怎么帮你？还请楼主改回来