[求助]求助高手，图块的插入点的组码是多少？如何能快速在选择集中获取？

userzhl

[求助]求助高手，图块的插入点的组码是多少？如何能快速在选择集中获取？

  (setq sa (ssget '((0 . "INSERT"))))
  (if sa (if (> (sslength sa) 1)
  (princ (strcat "\n 选择的有" (rtos (- (sslength sa) 1) 2 0) "个多余，程序将任选其一对象\n"))))
  (if sa (setq INS (rtos (cdr (assoc 20 (entget (ssname sa 0))))))
             (princ "\n 未选择图块!"))

为何不行？

caoyin

图块插入点组码是10

(cdr (assoc 10 (entget (ssname sa 0))))

不知楼主rtos是什么意思

userzhl

强烈推荐 caoyin 为优秀版主！！！

caoyin

惭愧至极！水平太浅，加上现在不大玩了。因感恩明经，所以只能尽绵薄之力为大家服务！

zhaozwf

caoyin版主，你好，请教个问题，

  (COMMAND "INSERT" (FINDFILE "158p.dwg") P0 "" "")，此句用来插入其它图形，默认的插入点老是左下角，能不能改一下，改成右上角为插入点。

zhaozwf

caoyin版主，你好，请教个问题，

  (COMMAND "INSERT" (FINDFILE "158p.dwg") P0 "" "")，此句用来插入其它图形，默认的插入点老是左下角，能不能改一下，改成右上角为插入点。

不死猫

块改插入点最简单的方法：

(command "bedit" "b");b是块名

(command "BParameter" "b" pt);pt是新的插入点

(command "bclose");关闭块编辑

(command "Move" (entlast) oldpt newpt);块的对齐点编辑会发生移动 编辑后要进行移动

userzhl

为何这段程序不行：

(setq ssi (ssget '((0 . "INSERT"))))
(if ssi (if (> (sslength ssi) 1)(princ (strcat "\n 选择的有" (rtos (- (sslength ssi) 1) 2 0) "个多余，程序将任选其一对象\n"))))
(if (= (cdr (assoc 2 (entget (ssname ssi 0)))) "材料")(setq INS (cdr (assoc 10 (entget (ssname ssi 0))))))
(command "move" (entget (ssname ssi 0)) "" INS PT1)

caoyin

不死猫是高手！

(setq ssi (ssget '((0 . "INSERT"))))
(if ssi
  (if (> (sslength ssi) 1)
    (princ (strcat "\n 选择的有" (itoa (- (sslength ssi) 1)) "个多余，程序将任选其一对象\n"))
  )
)

(if (= (cdr (assoc 2 (setq edat (entget (setq e (ssname ssi 0)))))) "材料")
  (setq INS (cdr (assoc 10 edat)))
)
(command "_.move" e "" "_non" INS "_non" PT1)

userzhl

版主，为何我试了不行呢？