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

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)))))) "材料")
  (progn
    (setq INS (cdr (assoc 10 edat)));;INS 返回的是什么？
    (command "_.move" e "" "_non" INS "_non" PT1)
  )
)

出错信息是什么？

userzhl

返回的是INS的坐标点，但没有移动物体 e ,我是想把物体 e 移动到指定的点 PT1

nonsmall

块改插入点的方法是在2006以上才可以(bedit命令存在)

在之前版本的CAD中比较麻烦

userzhl

我不是要改变块的插入点，而是要移动图块。

nonsmall

方法1

(setvar "osmode" 0)

(command "move" (car(entsel)) "" (setq pt1(getpoint "原点"))(getpoint pt2 "移动到"))

方法2

(vlax-put-property (vlax-ename->vla-object (car (entsel))) 'InsertionPoint (vlax-3d-point '(10 10)))

那个10 10就是新的坐标点根据插入点对块图元进行移动

nonsmall

方法3

(vlax-invoke-method (vlax-ename->vla-object (car (entsel))) 'Move (vlax-3d-point '(0 0)) (vlax-3d-point '(10 10)) )

0,0点移到10,10点(忽视捕捉)

userzhl

(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)))))) "材料")
  (progn
    (setq INS (cdr (assoc 10 edat)));;INS 返回的是什么？
    (command "_.move" e "" "_non" INS "_non" PT1)
  )
)

其中的INS如何转换成：(vlax-3d-point '(0 0))？

userzhl

(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)))))) "材料")
  (progn
    (setq INS (cdr (assoc 10 edat)))

    (command "move" (entget e) "" INS 0,0);这一句为何不行呢？
  )
)

nonsmall

(command "move" (car(entsel)) "" "0,0" "10,10");键盘输入方式模拟

userzhl

(91.121 53.8256 0.0)如何转换成："91.121,53.8256"呢？