求助,想通過一個尺寸得到它的坐標並設為新的坐標

hjiea

(defun c:sv ()
  (setvar "cmdecho" 0)  (setvar "osmode" 0)
  (setq en (entsel "Select objects:"))
  (setq hh (entget (car en)))
  (setq ocs (cdr (assoc 10 hh)))
  (command "ucs" "o" "" ocs )
  (prin1)
  )

請各位幫忙看看,是不是哪不對.我找不出原因來

caoyin

 (command "ucs" "o" ocs )

hjiea

改了之後還是不可以

caoyin

主要是不知道你想要干嘛

hjiea

得到該尺寸列表中的  (setq ocs (cdr (assoc 10 hh)))

通過Command ucs o 這個個命令來設定ocs為新的表尺寸的坐標原點

sen.sam

给你一个我在用的，当选择尺寸时同时把该尺寸标注样式设为当前。

(defun clerr (s)
  (if (/= s "Function cancelled")

    (princ (strcat "\nError: " s))  )
 
  (command "undo" "e")
  (setvar "blipmode" 0)
  (setq *error* olderr)  
  (princ)
)

;;;设定原点
(defun c:vc (/ tt dsel po dsty se)
   (setq olderr *error*
 *error* clerr
  )
 (setq tt (getvar "blipmode")) (setvar "blipmode" 0)
  (setq po (getpoint "\n输入原点<ENTER选择标注>:"))
  (setvar "blipmode" tt)
  (if (not Po) (progn
    (setq se (car (entsel "\n请选择标注:"))
          dsel (entget se)
          Po (trans (cdr (assoc 10 dsel)) 0 1)
          dsty (cdr (assoc 3 dsel)))
               ;;(redraw se 3)
                )
  )
    (command "ucs" "o" po "dim1" "res" dsty)
   (setvar "ucsicon" 3)
(princ "\n***  原点已更改并显示 ***")
(prin1)
)