你好
我有以下由Muharrem Kocyigit创建的lisp文件，用于编辑图形中的标高。例程将从块插入点获取Yvalue作为文本字段，以便在用户移动块时进行更新。
我想修改这个例程，以便它可以在用户定义的ucs中使用。当前，当在用户定义的ucs中使用时，它将显示WCS中的y值。
我很确定这就是lisp需要修改的地方。
基本上，我想取Yval并使用Trans函数将其转换为当前ucs值
-
- ;;; Define Praefix
- (setq PrFix (strcat "%ps[" str ",]"))
- (setq YVal (strcat "%<[url="file://acobjprop/"]\\AcObjProp[/url] Object(%<[url="file://_objid/"]\\_ObjId[/url] "
- (vl-princ-to-string ObjID)
- ">%).InsertionPoint>%"
- ))
- (setq FStr (strcat "%<[url="file://acexpr/"]\\AcExpr[/url] (" YVal "/" "1000" ") "
- "[url="file://f/"]\\f[/url] "" "%lu2"
- "%pt" (itoa PtIndex)
- "%pr3" "%ds44" PrFix "">%"
- ))
我从帮助部分获得以下信息
- (setq pt '(1.0 2.0 3.0))
- (setq cs_from 0) ; WCS
- (setq cs_to 1) ; UCS
- (trans pt cs_from cs_to 0) ; disp = 0 indicates that pt is a point
我试图将它们结合起来以获得期望的结果，但没有成功。任何帮助都将不胜感激。谢谢
级别已更新。拉链 | 
置顶卡
