明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1514|回复: 7

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

[复制链接]
发表于 2019-10-18 22:50 | 显示全部楼层 |阅读模式
本帖最后由 WWYYBB1015 于 2020-5-5 15:21 编辑

(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为自定比例系数
局限性比较大 已经重发新帖 改为新的内容了



评分

参与人数 1明经币 +1 收起 理由
USER2128 + 1 赞一个!

查看全部评分

发表于 2019-10-30 10:19 | 显示全部楼层
Thank you, though It's not practical ^^
发表于 2019-11-2 19:21 | 显示全部楼层
修改一下,不选择文字,跳过后,默认上次选择过的文字值,这样更人性化操作
 楼主| 发表于 2019-11-2 22:33 | 显示全部楼层
alexmai 发表于 2019-11-2 19:21
修改一下,不选择文字,跳过后,默认上次选择过的文字值,这样更人性化操作

可以考虑下,有时间再写,以前做过手动输入比例的
发表于 2019-11-2 23:34 | 显示全部楼层
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)
)
 楼主| 发表于 2019-11-3 16:27 来自手机 | 显示全部楼层
谢谢 我以前也考虑很久 没什么思路
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-6-16 02:29 , Processed in 0.176084 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表