API应用线上写字

eachy · 发表于 2013-11-23 19:23:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

临时写的用于标等高线标高

(defun c:tt (/ e pts ss el box)
(while
(and (setq
e (car (xdrx_entsel "\nPick Pline: " '((0 . "LWPOLYLINE"))))
)
(setq pts (xdrx_getpropertyvalue e "Vertices"))
(progn
(if (apply 'xdrx_document_isPtOutScreen
(setq box (apply 'xdrx_points_box pts))
)
(xdrx_document_zoomw (car box) (caddr box))
)
t
)
(setq ss (ssget "F" pts '((8 . "DGX"))))
)
(progn
(setq el (mapcar '(lambda (x) (list (cadr x) (cadr (last x))))
(ssnamex ss)
)
)
(mapcar '(lambda (x / txt)
(setq txt
(xdrx_text_make
(cadr x)
(rtos (last (cadr x)) 2 3)
25 ;_字高
(XD::Geom:AngleFormat
(angle
'(0. 0.)
(xdrx_curve_getfirstderiv
(car x)
(apply 'xdrx_curve_getparamatpoint x)
)
)
) ;_
)
)
(xdrx_text_sethozmode txt 1)
(xdrx_text_setvermode txt 2)
(xdrx_text_setalignmentpoint txt (cadr x))
)
el
)
)
)
(princ)
)

(defun c:tt (/ e pts ss el box) 
  (while 
    (and (setq 
           e (car (xdrx_entsel "\nPick Pline: " '((0 . "LWPOLYLINE")))) 
         ) 
         (setq pts (xdrx_getpropertyvalue e "Vertices")) 
         (progn 
           (if (apply 'xdrx_document_isPtOutScreen 
                      (setq box (apply 'xdrx_points_box pts)) 
               ) 
             (xdrx_document_zoomw (car box) (caddr box)) 
           ) 
           t 
         ) 
         (setq ss (ssget "F" pts '((8 . "DGX")))) 
    ) 
     (progn 
       (setq el        (mapcar        '(lambda (x) (list (cadr x) (cadr (last x)))) 
                        (ssnamex ss) 
                ) 
       ) 
       (mapcar '(lambda        (x / txt) 
                  (setq        txt 
                         (xdrx_text_make 
                           (cadr x) 
                           (rtos (last (cadr x)) 2 3) 
                           25 ;_字高 
                           (XD::Geom:AngleFormat 
                             (angle 
                               '(0. 0.) 
                               (xdrx_curve_getfirstderiv 
                                 (car x) 
                                 (apply 'xdrx_curve_getparamatpoint x) 
                               ) 
                             ) 
                           ) ;_ 
                         ) 
                  ) 
                  (xdrx_text_sethozmode txt 1) 
                  (xdrx_text_setvermode txt 2) 
                  (xdrx_text_setalignmentpoint txt (cadr x)) 
                ) 
               el 
       ) 
     ) 
  ) 
  (princ) 
)

newer · 发表于 2013-11-23 22:06:24

怎么执行完没反应呢，有什么要求吗?

st788796 · 发表于 2013-11-23 22:08:26

应该是标等高线的 Z 值

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

[每日一码] API应用 线上写字

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

[每日一码] API应用线上写字