明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: 自贡黄明儒

[源码] 序号标注-----------------源码

    [复制链接]
发表于 2019-3-21 17:18 | 显示全部楼层
不能用,我的是08版本的
发表于 2019-3-23 16:32 | 显示全部楼层
这个人真是人才,沾沾自喜写了一堆bug
回复 支持 1 反对 0

使用道具 举报

发表于 2019-12-29 20:05 | 显示全部楼层
一定要顶一下
发表于 2020-2-29 19:53 | 显示全部楼层
谢谢学习了,好东西。
发表于 2020-6-14 17:39 | 显示全部楼层
669423907 发表于 2014-3-28 09:32
非常感谢黄大师分享好程序!
提一点小建议:
可以用鼠标点取文字作为序号的字高(默认当前自高)就更完美了 ...

请教,我标注的数字都在圆圈外,引线和圆也没有连在一起
发表于 2020-7-2 10:16 | 显示全部楼层
感觉高大上
发表于 2020-8-13 22:36 | 显示全部楼层
现在猪肉30了
发表于 2020-8-14 21:22 | 显示全部楼层
序号标注源码,加5楼和8楼加进去才能用,我不知道代码加在哪个位置,指点下,代码不在行啊
发表于 2020-8-17 09:47 | 显示全部楼层
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)
)
发表于 2020-8-18 10:17 | 显示全部楼层
不错 ,很强大,很智能
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-28 21:37 , Processed in 0.291285 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表