做了几个画云线的插件，觉得还是参照文字比例修改比较好

WWYYBB1015

(defun c:RED(/ x sc pt1)
  (setvar "cmdecho" 0)
  (defun dxf(code e) (cdr (assoc code (entget e))))
  (setq x nil)
  (princ "\n请选择单行文字")
  (while (= x nil)
    (setq x (= (dxf 0 (setq ent (car (entsel "")))) "TEXT"))
    (princ "\n未选中单行文字，请重新选择"))
  (if (= x T)
    (progn
      (setq sc (dxf 40 ent))
      (command "rectang"
               (setq pt1 (getpoint "\n指定第一个角点"))
               (getcorner pt1 "\n指定另一个角点"))
      (command "revcloud" "a" sc sc "" (entlast) "")))
  (princ))
;;文字和云线均与图框成比例关系，此处选择参照文字来确定比例
;;云线弧长默认与文字自高相等,比例不满意可以把sc修改为(* sc k),k为自定比例系数
局限性比较大 已经重发新帖 改为新的内容了

ketxu

Thank you, though It's not practical ^^

cyfdean

Thank you,

alexmai

修改一下，不选择文字，跳过后，默认上次选择过的文字值，这样更人性化操作

WWYYBB1015

alexmai 发表于 2019-11-2 19:21
修改一下，不选择文字，跳过后，默认上次选择过的文字值，这样更人性化操作

可以考虑下，有时间再写，以前做过手动输入比例的

alexmai

WWYYBB1015 发表于 2019-11-2 22:33
可以考虑下，有时间再写，以前做过手动输入比例的

给你参考一下

;* 记忆功能子程序
(defun uint (bit kwd msg def / inp)
  (if def                                                 ;test for a default
    (setq msg (strcat "\n >> " msg " < " (itoa def) " >: ")      ;string'em with default
         bit (* 2 (fix (/ bit 2)))  ;a default and no null bit code conflict so
    )                               ;this reduces bit by 1 if odd, to allow null
    (if (= " " (substr msg (strlen msg) 1))            ;no def, if last char is space
      (setq msg (strcat "\n >> " (substr msg 1 (1- (strlen msg))) " : ")) ;then strip space
      (setq msg (strcat "\n >> " msg " : "))                ;else msg OK
  ) );if,if
  (initget bit kwd)
  (setq inp (getint msg))       ;use the GETINT function
  (if inp inp def)              ;compare the results, return appropriate value
);defun

;;改颜色-带记忆
(defun c:33()
  (setq ss (ssget))
  (initget 1)
     (setq cnt (uint 7 "" "颜色" *Cnt*)
      *Cnt* cnt
     )
    (command "_chprop" ss "" "c" cnt "")
(princ)
)

WWYYBB1015

谢谢 我以前也考虑很久 没什么思路

nsh935

谢谢分享！！