根据块名，选择块

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

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

(defun c:km (/ EP1 EG1  EP1st 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

楼主不厚道

我不买

自己写能比这个好!

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

我也不买,我等楼上猫哥的

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

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

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

程序被钱遮着

我看不到喔!

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

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

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

是啊！一个程序既然要公布何必这样做。。。。。

嗨！

账号		自动登录	找回密码
密码			注册

[源码] 根据块名，选择块