freeok 发表于 2015-10-24 23:49:07

可否快速写入某些文字？

可否快速写入某些文字？
比如：输入1，以圆中心点写入① ；输入2，写入②。。。。
          输入A，写入A加圈 ；。。。。。
          这些圈内的文字可以单独编辑。。。。。。
         
希望能有大侠出手，，谢谢！！！

freeok 发表于 2015-10-24 23:52:32

同时求可以写入固定词语的。。

如：写入此处需要修改核对 等。。

琴剑江山_10184 发表于 2015-10-25 08:56:21

本帖最后由 琴剑江山_10184 于 2015-10-27 09:51 编辑

(defun c:a (/ A ANG B DD DST EN ENT P1 P2 PL PP PT SEL STR X10 X11)
(setvar "cmdecho" 0)
(princ "\n文字加外圈")
(if (setq sel (entsel "\n选择平行直线 <退出>:"))
    (progn
(setq x10 (cdr (assoc 10 (entget (car sel))))
x11 (cdr (assoc 11 (entget (car sel))))
ang (angle x10 x11))
(vl-cmdf "_ucsicon" "off")
(setq str (getstring "\n输入文字:")
      pt(getpoint "\n指定文字放置点:")
      dst (getdist "\n输入文字高度:"))
(entmake (list '(0 . "TEXT") (cons 1 str) (cons 10 pt) (cons 40 dst) (cons 50 ang)))
(setq en (entlast))
(vl-cmdf "ucs" "OB" en)
(setq ent (entget en)
      pp(textbox ent)
      p1(car pp)
      p2(cadr pp)
      pL(mapcar '(lambda (a b) (/ (+ a b) 2)) p1 p2)
      DD(* dst 0.8))
(vl-cmdf "circle" pL DD)
(vl-cmdf "ucs" "w")
(vl-cmdf "_ucsicon" "on")
)
    )
(princ)
)

freeok 发表于 2015-10-25 23:51:43

琴剑江山_10184 发表于 2015-10-25 08:56 static/image/common/back.gif


谢谢兄弟的回复，但是没有写入成功呢。。。

freeok 发表于 2015-10-25 23:55:56

琴剑江山_10184 发表于 2015-10-25 08:56 static/image/common/back.gif


不好意思，有线的又可以了。
可否请兄台再出手改进下，平行于所选择的线。

琴剑江山_10184 发表于 2015-10-26 19:10:24

freeok 发表于 2015-10-25 23:55 static/image/common/back.gif
不好意思，有线的又可以了。
可否请兄台再出手改进下，平行于所选择的线。

是什么意思？

freeok 发表于 2015-10-26 22:51:58

琴剑江山_10184 发表于 2015-10-26 19:10 static/image/common/back.gif
是什么意思？

上个图应该就清楚了。。

freeok 发表于 2015-10-26 23:00:09

就是写出来时添加选择线两点平行命令行。。

琴剑江山_10184 发表于 2015-10-27 09:51:53

freeok 发表于 2015-10-26 23:00 static/image/common/back.gif
就是写出来时添加选择线两点平行命令行。。

代码已更新，重新试效果

freeok 发表于 2015-10-27 22:49:21

琴剑江山_10184 发表于 2015-10-27 09:51 static/image/common/back.gif
代码已更新，重新试效果

非常感谢！
但是效果还不是很好，文字齐了，但圆没齐。
页: [1] 2
查看完整版本: 可否快速写入某些文字？