UCS的错误在哪里？

dengken204 · 发表于 2008-6-11 02:33

(DEFUN C:UO( / QQQ  )

  (SETQ qqq (nentsel "Please choose an object:"))

  (command "ucs" "_ob" (car qqq))
)

想通过nentsel函数选择块中的物体来改变坐标系，但是一直没有成功。
请问这个lisp错误在哪里？

请高手帮忙

danxingpen · 发表于 2008-6-11 15:33

不是程序的问题,只是概念的问题.
(car qqq)得到的是块定义的图元,这个不是独立的或者可以通俗点说不存在的,也就是这个选择的图元事实上在不炸开块的情况下只是一个指针,所以不能用它来定义ucs,不知道对不对,个人理解.

dengken204 · 发表于 2008-6-12 01:40

用nentsel函数是能够读出块中图元的信息的

既然能够获得块中图元的信息，那么剩下的过程应该是和CAD本身UCS命令一样的

但是实际上却没有成功！

不理解

dengken204 · 发表于 2008-6-22 00:52

有没有什么变通的方法可以实现这个功能？

请大家帮助！

无痕 · 发表于 2008-6-22 23:02

entmake后用ucs obj

再删除新生成的实体

lyd2003001 · 发表于 2008-6-23 09:59

呵呵，给个建议，放弃这种想法。直接用两点定坐标系，第三点系统自动判断。

命令是ucs，然后点两点，回车两下。

yunlong300 · 发表于 2008-6-23 11:32

(defun c:bb ()
(command "._UCS" "_OB")
)

byghbcx · 发表于 2008-6-23 11:42

(DEFUN C:U_O( / QQQ pm pn ss aa bb scr x y en );转换ucs到子物体
(SETQ qqq (nentsel "Please choose an sub object:"))
(setq pm (getvar "vsmax"))
(setq pn (getvar "vsmin"))
(setq dd (/ (- (car pm) (car pn)) (- (cadr pm) (cadr pn))))
(setq aa (getvar "viewsize"))
(setq bb (* aa dd))
(setq scr (getvar "screensize"))
(SETQ AA (/ AA (CAR SCR)) BB (/ BB (CADR SCR)))
(SETQ X (* AA (GETVAR "CURSORSIZE") 0.5) Y (* BB (GETVAR "CURSORSIZE") 0.5))
(sssetfirst nil (ssadd (car (last qqq))))
(command "-refedit" "O" "a" "y")
(SETQ SS (SSGET "C" (MAPCAR '- (CADR qqq) (list x y 0)) (MAPCAR '+ (CADR qqq) (list x y 0))))
(setq en (ssname ss 0))
(command "ucs" "_ob" en)
(command "refclose" "d" )
)

dengken204 · 发表于 2008-6-24 21:13

命令:
命令:
命令: u_o
Please choose an sub object:-refedit 选择嵌套层次 [确定(O)/下一个(N)] <下一个>:
O
输入对象选择方法 [全部(A)/嵌套(N)] <全部>: a
显示属性定义 [是(Y)/否(N)] <否>: y

关联填充图元位于锁定或冻结的图层上。未执行更新。

没有运行成功，因为我的块是外部参照，不能编辑

xiexie

byghbcx · 发表于 2008-6-25 08:10

(setq pick_old (getvar "pickpirst"))

(setvar "pickpirst" 1);开始加上

.........

(setvar "pickpirst" pick_old);结尾加上

试试

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