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