选PL线，然后直接标注出每个顶点的坐标！

xiaomihu

1、如果是line就要修改程序

2、你是搞规划的吗，一定要搞编号

wuling619

老兄。。好像你的程序运行没啥问题。。

但是好像标注的坐标 y 值全是错的。。

我想应该是属于逻辑错误。。

检查一下你的代码吧!!!!!!!!!!!!!!!!!

 

 

中华

x,y的坐标弄反了，而且精度只要小数点三位就可以了

Dragon9813

哈哈,你一次说完就完了

黑猫的程序真的是很好

 

dwg001

黑猫的程序真的是很好。

楼上的说：x,y的坐标弄反了，而且精度只要小数点三位就可以了 。

作了一点修改，试试看。

dwg001

抱歉！文件没传好，再传一下。

jfh1

 ;贾氏坐标注记程序；适合各种实体！！！
(defun C:zJ()  
        (setvar "cmdecho" 0)
        (setvar "osmode" 0)

       ;;以下这句有可能要根据实际情况改一下
        (COMMAND "-STYLE" "TTST" "SIMKAI.TTF" 0 0.9 0 "N" "N""")

        (setq SC (GETREAL "请输入标注字高<1.0>:"))
        (if (= sc nil)
            (setq sc 1)
   )
        (setq LABLE (entget(car (entsel "请选择要标注的实体:"))))
   (command "color" 5"")
        (while (SETQ la1 (assoc '10 LABLE))

          (SETQ la (CDR la1))
          (SETQ JJX (rtos (cadr la) 2 3))
(SETQ JJX (strcat "X=" JJX))
          (SETQ JJY (rtos (car la) 2 3))
(SETQ JJY (strcat "Y=" JJY))
　　　　　;求标注文字的最大长度
   (setq lenx (* (+ (strlen jjx) 1) sc))
   (setq leny (* (+ (strlen jjy) 1) sc))
   (if (< lenx leny)
       (setq lenx leny)
     )
　　　　　;求标注线水平段的长度
   (setq lenx (* lenx 0.65))
          (setq lb (list (+ (car la) (* 2 sc)) (+ (cadr la) (* 2 sc))))
          (setq lc (list (+ (car lb) lenx) (cadr lb)))
          (COMMAND "PLINE" la lb lc"")
          (command "Text" "j" "bl"  (list (+ (car lb) (* 0.5 sc)) (+ (cadr lb) (* 0.4 sc))) (* 1 sc) 0 JJX)
   (command "Text" "j" "tl"  (list (+ (car lb) (* 0.5 sc)) (- (cadr lb) (* 0.5 sc))) (* 1 sc) 0 JJy)
          (setq LABLE (CDR (MEMBER LA1 LABLE) ))
         )
   (command "color" "BYLAYER" "")
  )

5061220

先收藏再研究

tony1435

字体会自动新建?