wamwl 发表于 2019-3-21 17:18:55

不能用，我的是08版本的

wamwl 发表于 2019-3-23 16:32:39

这个人真是人才，沾沾自喜写了一堆bug

paulpipi 发表于 2019-12-29 20:05:08

一定要顶一下

timmy521 发表于 2020-2-29 19:53:25

谢谢学习了，好东西。

sunny_8848 发表于 2020-6-14 17:39:41

669423907 发表于 2014-3-28 09:32
非常感谢黄大师分享好程序！
提一点小建议：
可以用鼠标点取文字作为序号的字高(默认当前自高)就更完美了 ...

请教，我标注的数字都在圆圈外，引线和圆也没有连在一起

kdanqu 发表于 2020-7-2 10:16:09

感觉高大上

zag0666 发表于 2020-8-13 22:36:53

现在猪肉30了

ccc230 发表于 2020-8-14 21:22:37

序号标注源码，加5楼和8楼加进去才能用，我不知道代码加在哪个位置，指点下，代码不在行啊

zag0666 发表于 2020-8-17 09:47:00

ccc230 发表于 2020-8-14 21:22
序号标注源码，加5楼和8楼加进去才能用，我不知道代码加在哪个位置，指点下，代码不在行啊

谁让你在我楼下呢，这是我用的，拿去用吧
;标注序号程序
    (defun c:bh (/ p1 p2 p3 ang1 bx bxh circ_1 txt_h juge)
    (Command "osmode" "20" )
    (setq circ_r 1.55)          ;圆圈半径
    (setq txt_h 2)         ;字高
    (while (/= juge "Exit")
    (if (not bx) (setq bx 1 ))
    (setq bxh (getint " \ n请输入序号 " ))          ;输入序号
    (initget 1 "getpoint")                  ;限制输入,使第一点不容为空
    (setq p1 (getpoint " \ n请选择起点:"))             ;选择第一点
    (setq p2 (getpoint p1 " \ n请选择第二点(回车表示无):")) ;直线的另一点
    (if bxh (setq bx bxh))
    (cond (p2
       (setq ang1 (angle p1 p2))                ;为直线时的情形
       (setq p3 (polar p1 ang1 ( - (distance p1 p2) circ_r)))         ;画圆,线
       (command "pline" (polar p1 ang1 0.2)
             "W" 0.8 0.8 "A" "CE" p1 "A" 359.9 "L" "W" 0 0 p3"")
             (command "circle" p2 circ_r )
             (command "text" "J" "M" p2 txt_h 0 bx);写序号
            )
            ((not p2)      ;仅为一个点时的情形
            (command "circle" p1 circ_r)   ;画圆
            (command"text" "J" "M" p1 txt_h 0 bx);写序号
          )
         )
         (setq bx ( + bx 1))
         (initget "Continue Exit")   ;定义类型关键字
         (setq juge (getkword" \ n 退出(Exit)/继续 (Continue):"))
       )
         (princ)
)

baoyizhu 发表于 2020-8-18 10:17:16

不错 ，很强大，很智能
页: 1 2 3 [4] 5 6
查看完整版本: 序号标注-----------------源码