kongel 发表于 2009-1-14 08:25:00

根据块名，选择块

本帖最后由 kongel 于 2018-6-17 12:41 编辑

(defun c:km (/ EP1 EG1EP1st blkname )
         (vl-load-com)
(if (progn
         (setq EP1 (entsel"\nSelect TK:\n"))
         (setq EG1 (cdr (assoc 0 (entget (car EP1)))))
         (if (= EG1 "INSERT")
               (progn
         
                   (setq EP1st (entget (car EP1)))
                   (setq blkname (assoc 2 EP1st))   
               )
          )
      )
         (princ (strcat"块名:" (cdr blkname) "\n"))
         (progn(princ "Select TK!")(exit))
         )
   (sssetfirst nil (ssget(cons blkname slist)))
   (princ)   
)

nonsmall 发表于 2009-1-14 08:41:00

<p>楼主不厚道</p><p>我不买</p><p>自己写能比这个好!</p>

16335181 发表于 2009-1-14 08:46:00

<p>我也不买,我等楼上猫哥的</p>

hzh2000 发表于 2009-1-14 13:05:00

太黑了,本来的好心情被搅了,楼主应该是明经网卖钱第一人!

yoyoho 发表于 2009-1-14 13:13:00

<p>程序被钱遮着</p><p>我看不到喔!</p>

samshs 发表于 2009-1-14 13:25:00

我也是头次看见明经网卖钱第一人

wuxuloveguo 发表于 2009-1-15 13:53:00

<p>是啊！一个程序既然要公布何必这样做。。。。。</p><p>嗨！</p>
页: [1]
查看完整版本: 根据块名，选择块