[分享]：[分享]：附源码:发一个自己较常用的矩形标注并可写文字程序大家可修改

xxming

注意：矩形对角点为左对角点
(defun c:bbz()
   (setvar "cmdecho" 0)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (setq pt1 (getpoint "\n直线第一点: "))
  (while pt1
   (setq pt2 (getpoint pt1 "\n直线第二点: "))
   (setq ang (angle pt1 pt2))
   (setq pp1 pt2)
   (setq pp1_x (car pp1))
   (setq pp3 (getcorner pp1 "\n矩形的左对角点: "))
   (command "line" pt1 pt2 "")
   (setq en1 (entlast))
   (entdel en1)
   (command "rectang" pp1 pp3)
   (setq en2 (entlast))
   (setq pp2 (list (car pp1) (cadr pp3)))
   (setq pp4 (list (car pp3) (cadr pp1)))
   (setq pp4_x (car pp4))
   (if (> pp4_x pp1_x)
     (progn
       (alert "\n错误!请重新框选矩形的左对角点")
       (entdel en2)
       (exit)
     )
   )
   (setq ww (distance pp1 pp4))
   (setq dd (distance pp1 pp2))
   (setq pt3 (polar pt2 pi (/ ww 4)))
   (setq pt4 (polar pt3 pi (/ ww 4)))
   (command "line" pt1 pt3 "")
   (setq en3 (entlast))
   (command "line" pt1 pt4 "")
   (setq en4 (entlast))
   (setq dd2 (/ dd 10))
   (command "donut" 0 dd2 pt1 "")
   (command "trim" en3 en4 "" (polar pt3 pi (/ ww 8)) "")
   (setq shh (getvar "textsize"))
   (setq str (strcat "\n文字高度<" (rtos shh 2) ">"))
   (setq hh (getdist (polar pp4 0 (/ ww 2)) str))
   (if (null hh) (setq hh shh))
   (setq txt (getstring "\n输入文字: "))
    (cond ((and (> ang 0) (< ang pi))
          (setq txtpt (polar (polar pp4 0 (/ ww 2)) (/ pi 2) (/ dd 6))))
          ((and (> ang pi) (< ang (* pi 2)))          
          (setq txtpt (polar (polar pp3 0 (/ ww 2)) (/ pi 2) (/ dd 6))))
    )
   (command "text"  "c" txtpt hh 0 txt)
   (setq pt1 (getpoint "\n直线第一点<退出:>"))
  );end while
   (setvar "osmode" os)
   (prin1)
)
(prompt"\n矩形标注程序键入:bbz执行,-------------------程序设计：小谢")
(princ)

                               
登录/注册后可看大图

                               
登录/注册后可看大图

zh_6531394

我这么用不起来,
矩形标注程序键入:bbz执行,-------------------程序设计：小谢
命令:
命令: bbz

直线第一点
直线第二点
矩形的左对角点
Error: 用于比较的参数类型不正确: (5.51161e+006 -3.64182e+006) (5.58185e+006
-3.64182e+006 0.0).

xxming

楼上：可以用啊我把代码附上你看看

zh_6531394

直线第一点
直线第二点
指的是什么

xxming

提供附图供大家参考,希望程序对大家有用

zxcvbnm-cad

退出时命令行出现:参数类型错误: point: nil

xxming

楼上程序稍改后不会出现你说的情况了在试试

zh_6531394

还是不行,能否解释直线第一点
直线第二点
指的是什么

zxcvbnm-cad

试用了一下程序不错挺实用
能不能再改一改
先画矩型不容易撑握,能不能先把文字写好
再根据文字的大小和长度自定义矩形

xxming

楼上这不是多此一举，你也可以先写字，再画框啊，不是一样，程序完全满足你的要求

zxcvbnm-cad

如果先写文字再画框就要用二次命令

nt8011

此程序的功能有应用价值，谢谢！

xyz

能提供代码学习就值得奖励！现在发源代码的越来越少了！谢谢！

kikigz88

没什么用

余寒犹峭雨疏疏

摸索了一下，终于搞清楚用法了，很好的源代码，谢谢楼主了。