[讨论]：Lisp中关键字的“一触即发”

eachy · 发表于 2004-9-22 12:07:23

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

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

×

写的非常简单，目的是写出一个格式

;;一触即发功能简单演示
(defun c:test (/ tf tf1 p1 p2 mod)
(setq tf t)
(while tf
(if (not tf1)
(princ "\n[L - 绘制直线 / C - 绘制园 /E - exit]<L>: ")
)
(setq mod (grread nil 10 0))
(cond
((and (= (car mod) 2)
(= (strcase (chr (cadr mod))) "L")
)
(if (setq p1 (getpoint "\nStart Point: ")
p2 (getpoint p1 "\nEnd Point: ")
)
(entmake (list '(0 . "line")
'(100 . "acdbentity")
'(100 . "Acdbline")
(cons 10 p1)
(cons 11 p2)
)
)
)
)
((and (= (car mod) 2)
(= (strcase (chr (cadr mod))) "C")
)
(if (and (setq p1 (getpoint "\nCenter point: "))
(setq p2 (getpoint p1 "\nRadius: "))
)
(entmake (list '(0 . "circle")
'(100 . "acdbentity")
'(100 . "acdbcircle")
(cons 10 p1)
(cons 40 (distance p1 p2))
)
)
)
)
(t
(setq tf nil)
)
)
)
)

;;一触即发功能简单演示 
(defun c:test (/ tf tf1 p1 p2 mod) 
  (setq tf t) 
  (while tf 
    (if        (not tf1) 
      (princ "\n[L - 绘制直线 / C - 绘制园 /E - exit]<L>: ") 
    ) 
    (setq mod (grread nil 10 0)) 
    (cond 
      ((and (= (car mod) 2) 
            (= (strcase (chr (cadr mod))) "L") 
       ) 
       (if (setq p1 (getpoint "\nStart Point: ") 
                 p2 (getpoint p1 "\nEnd Point: ") 
           ) 
         (entmake (list        '(0 . "line") 
                        '(100 . "acdbentity") 
                        '(100 . "Acdbline") 
                        (cons 10 p1) 
                        (cons 11 p2) 
                  ) 
         ) 
       ) 
      ) 
      ((and (= (car mod) 2) 
            (= (strcase (chr (cadr mod))) "C") 
       ) 
       (if (and        (setq p1 (getpoint "\nCenter point: ")) 
                (setq p2 (getpoint p1 "\nRadius: ")) 
           ) 
         (entmake (list        '(0 . "circle") 
                        '(100 . "acdbentity") 
                        '(100 . "acdbcircle") 
                        (cons 10 p1) 
                        (cons 40 (distance p1 p2)) 
                  ) 
         ) 
       ) 
      ) 
      (t 
       (setq tf nil) 
      ) 
 
    ) 
  ) 
)

zhuquanmao · 发表于 2004-9-22 12:59:54

请教一下这个用来干什么的

YueFeng · 发表于 2004-9-22 14:42:02

有点象天正建筑5、6。但是AutoCAD自身的平台并不提供这样的功能。用多了，会在ACAD上迷糊的。

它山之石 · 发表于 2004-9-22 15:50:50

意义不大，把简单问题复杂化了。

eachy · 发表于 2004-9-22 16:05:39

习惯问题，只是作为一种Lisp实现的探讨

;|
“一触即发”开关演示一
命令：chtxth
对不同比例画图很方便的解决方法、
修改字高或者根据比例缩放原有字高
|;
(vl-load-com)
(defun c:chtxth (/ tf1 high e val doc el mod oh sl ss)
(vla-startundomark
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
)
(while (progn
(prompt "\n请选取要修改字高的文字<退出>:")
(setq ss (ssget '((0 . "*text"))))
)
(if ss
(progn
[color=blue](if (not tf1)
(setq tf1 1)
)
(princ (strcat "\n请输入选项[A: "
(if (= tf1 1)
"实际字高]<变比>: "
"变比]<实际字高>: "
)
)
)
(setq mod (grread nil 10 0))
(if (and (or (equal mod '(2 97))
(equal mod '(2 83))
)
(= tf1 1)
)
(setq tf1 2) ;_ 第一次变化
(setq tf1 1) ;_ 第二次变化
)[/color]
(initget 6)
(setq val (getreal (strcat "\n请输入文字"
(if (= tf1 1)
"缩放比例"
"新字高"
)
(if #val_txth
(strcat "<"
(rtos #val_txth 2 1)
">"
)
""
)
":"
)
)
) ;_ end setq
(if (not val)
(setq val #val_txth)
(setq #val_txth val)
)
(setq sl (sslength ss))
(while (> sl 0)
(setq e (ssname ss (setq sl (1- sl)))
el (entget e)
high (cdr (setq oh (assoc 40 el)))
) ;_end setq
(entmod (subst (cons 40
(if (= tf1 1)
(* high val)
val
)
)
oh
el
) ;_ end subst
) ;_ end entmod
) ;_ end while
) ;_ end progn
) ;_ end if
) ;_ end while
(vla-endundomark doc)
(princ)
) ;_ end defun

;| 
“一触即发”开关演示一 
 命令：chtxth 
 对不同比例画图很方便的解决方法、 
 修改字高或者根据比例缩放原有字高 
|; 
(vl-load-com) 
(defun c:chtxth        (/ tf1 high e val doc el mod oh sl ss) 
  (vla-startundomark 
    (setq doc (vla-get-activedocument (vlax-get-acad-object))) 
  ) 
  (while (progn 
           (prompt "\n请选取要修改字高的文字<退出>:") 
           (setq ss (ssget '((0 . "*text")))) 
         ) 
    (if        ss 
      (progn 
        [color=blue](if (not tf1) 
          (setq tf1 1) 
        ) 
        (princ (strcat "\n请输入选项[A: " 
                       (if (= tf1 1) 
                         "实际字高]<变比>: " 
                         "变比]<实际字高>: " 
                       ) 
               ) 
        ) 
        (setq mod (grread nil 10 0)) 
        (if (and (or (equal mod '(2 97)) 
                     (equal mod '(2 83)) 
                 ) 
                 (= tf1 1) 
            ) 
          (setq tf1 2) ;_ 第一次变化 
          (setq tf1 1) ;_ 第二次变化 
        )[/color] 
        (initget 6) 
        (setq val (getreal (strcat "\n请输入文字" 
                                   (if (= tf1 1) 
                                     "缩放比例" 
                                     "新字高" 
                                   ) 
                                   (if #val_txth 
                                     (strcat "<" 
                                             (rtos #val_txth 2 1) 
                                             ">" 
                                     ) 
                                     "" 
                                   ) 
                                   ":" 
                           ) 
                  ) 
        ) ;_ end setq 
        (if (not val) 
          (setq val #val_txth) 
          (setq #val_txth val) 
        ) 
        (setq sl (sslength ss)) 
        (while (> sl 0) 
          (setq        e    (ssname ss (setq sl (1- sl))) 
                el   (entget e) 
                high (cdr (setq oh (assoc 40 el))) 
          ) ;_end setq 
          (entmod (subst (cons 40 
                               (if (= tf1 1) 
                                 (* high val) 
                                 val 
                               ) 
                         ) 
                         oh 
                         el 
                  ) ;_ end subst 
          ) ;_ end entmod 
        ) ;_ end while 
      ) ;_ end progn 
    ) ;_ end if 
  ) ;_ end while 
  (vla-endundomark doc) 
  (princ) 
) ;_ end defun

urljit · 发表于 2004-9-22 18:34:05

看君一个贴，胜编几回程，呵呵，受益非浅，终于知道了grread的新用法。

xgwl · 发表于 2004-9-22 19:10:22

呵呵！昨天还问过这样的问题，eachy斑竹只说了个grread. 查了下函数表也不太明白！现在好了，可以好好研究研究了！：）

另：再问个问题，同样的道理能否自定义一个热键组合键来一触即发呢？

zhang8755 · 发表于 2004-9-22 19:35:14

对于熟练的人可以大大加快绘图的速度

梦断江南 · 发表于 2004-9-22 22:19:09

5贴：文字缩放比例和实际字高在转换输入方式的时候默认值会串，宜设成两个变量
另外就本例而言，我觉得如wkai以前写过的用加前后缀的方法似乎更快捷
如：输入500表示实际字高，输入x1.5表示缩放1。5倍数，在程序中判断用户是使用实际字高还是相对比例。

马上写一个例子:[php]
;; 命令 c:chtth = 快速改字高-------------------------------lxx.2004.9
(defun chtth (ss / nh i e ent)
 (princ "\n字高改为(加前缀\"x\"表示改比例)<缺省值:")(princ h)
 (initget 128)
 (setq nh (getdist ">:")
h (if nh nh h)
i -1)
 (while (setq e (ssname ss (setq i (1+ i))))
(setq ent (entget e))
(if (and (= 'STR (type h))(wcmatch h "x*,X*")) ;'
 (setq h (* (cdr(assoc 40 ent)) (distof (substr h 2))));;按比例修改的字高作为下次的默认值.
)
(entmod (subst (cons 40 h)(assoc 40 ent)ent))
 )
 (princ)
)
(defun c:chtth ( / ss h)
 (if (not h)(setq h 500));;初始默认值.
 (while (and (princ "\n选择文字:")
 (setq ss (ssget '((0 . "*TEXT"))))
 )
(chtth ss)
 )(princ)
)[/php]

eachy · 发表于 2004-9-22 23:18:47

最初由梦断江南发布
[B]5贴：文字缩放比例和实际字高在转换输入方式的时候默认值会串，宜设成两个变量
另外就本例而言，我觉得如wkai以前写过的用加前后缀的方法似乎更快捷
如：输入500表示实际字高，输入x1.5表示缩放1。5倍数，在程序中... [/B]

呵呵，你倒把程序当真了，为了这个标题，一时没有找到合适的程序，就在工具箱里面临时抓了一个。

梦断江南 · 发表于 2004-9-22 23:55:24

如果说我认真，那并不在于对字高处理这个程序的编写上，而是想通过这个程序对grread的使用效率进行一下思考，也算对得上ea兄的主题的。

我觉得grread一键触发的特性最有效的发挥就是处理单个关键字，以及有前缀的响应, 同时处理对关键字或取点的响应，动态
如下例程序结构同时处理带前缀的关键字，单个关键字，动态和取点

(princ "\n加前缀x-缩放 / 加前缀c－改颜色/d－合并/取点－.../.....")
(setq k (grread T 4 2))
(cond
  (如果是x，(setq  sc (getdist)) ,处理字高)
  (如果是c, (setq  c (getdint)),处理颜色)
  (如果是d，处理合并) ;;单个关键字，少一次回车
  ....
  (如果是取点，。。。进行相应处理)
  (如果是跟踪，动态效果处理)
)

如果要用grread，那就要达到用别的函数无法或难以实现的程度（如本例），这样才能体现它的自身优势。否则用别的函数也能做到（甚至更简洁），那只是个选择问题，一般来说，这种情况下我宁愿用别的函数，尽量不用、少用grread。呵呵，个人习惯而已。大家可畅所欲言

aeo · 发表于 2004-9-23 00:26:45

最初由梦断江南发布
[B]如：输入500表示实际字高，输入x1.5表示缩放1。5倍数，在程序中... [/B]

其实我很早就这么写了（还不是斑猪时)
说者无心，听者有意，很多人是不会注意的:)

至于grread,真是习惯问题，我习惯用空格键，一不小心，程序就退出了.(有的用有的不用，不是很好)

snsj · 发表于 2004-9-23 01:40:13

江南，AEO，GRREAD在某些领域还是有一定优势的，比如理正建筑中的画墙线用热键切换墙线的对齐方式等等，感觉挺不错的，如果能充分利用后果不堪设想

梦断江南 · 发表于 2004-9-23 03:24:46

sn，我也没有否定grread啊，我说的处理单个关键字就是你说的切换效果
需要说明的是，如果是单向进程方式的切换（线性），它的效果不明显（可用其它的程序结构、方式来做，而且效果未必逊于gr），作为回朔效果的切换（非线性）它就有优势（其实优势就是每次切换少一个回车）。
我说的回朔效果，举例：将影响实体生成的变量放到一个表里面，切换的时候更改表的内容，然后每次变更都根据变化的表进行重新生成实体（或部分实体）的操作，也就是一个动态调整的效果（实际上我们经常利用gr来做的动态效果就是不断回朔－－删除、重建的过程），这种情况下运用grread，是有它的优势的。而且切换的次数越多，切换的方式越多，gr就越是体现出它的优势。

它山之石 · 发表于 2004-9-23 09:48:45

哈哈哈，建议斑主将此贴置顶。
全是几个斑主在此讨论，相当于政治局常委会级别的。
看后受益匪浅。在此我收回说过的“将简单问题复杂化了”的话。

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

[讨论]：Lisp中关键字的“一触即发”

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

相关帖子