[LISP程序]：编号程序（可在R14下运行）

netbee

完全定义后就可以退出了，选择退出后，程序自动根据你所选择的坐标点用直角坐标转换到极坐标的方法生成数据并写入你所定义的文件。

netbee

这是我用LISP做的轴线绘制程序，对话框内带即时预览功能

netbee

这是承台桩绘制程序，也是带即时预览功能的。其实这个预览功能是很好做的，就是你在控件上一条一条直线的画出来的。

lsjjm

贴个简单的, --机械零件序号,自动水平垂重genzong
(defun c:test ()
  (setq p0 (getpoint "\nPick start Point"))
  (if inum nil (setq inum 1))
  ;(mlayer "dim" 4 "continous")
  (setq s (getvar "dimscale"))
  (while inum
    (if pe (setq pe0 pe))
    (setq pe (getpoint p0 "\nPick End Point"))
    (princ "\nItem Number or Break: n <")
    (princ inum)
    (setq inum0 (getstring ">:"))
    (if pe0
      (if (< (abs (- (car pe)(car pe0)))(abs (- (cadr pe)(cadr pe0))))
        (setq pe (list (car pe0)(cadr pe)))
        (setq pe (list (car pe)(cadr pe0)))
      )
    )
    (command "leader" p0 (polar pe (angle pe p0)(* s 0.32)) "" "" "n")
    (vl-cmdf "circle"  pe (* s 0.32))
    (if (= (type inum) 'STR)(setq inum (atoi inum)))
    (vl-cmdf "text" "j" "m" pe (* s 1.5 0.18) 0 (itoa inum) "")
    (setq p0 (getpoint "\nPick start Point"))
    (setq inum (1+ inum))
  )
)

coolzhb

最初由 netbee 发布
[B][code]
;;; ======================================
;;; ‖ [基础绘图系统1.5] ‖
;;; ‖ 桩位编号程序 ‖
;;; ‖ V1.0 ‖
;;; ‖ 蜜蜂软体工作室 杨明峰 ‖
;;; ======================================
;;... [/B]

能不能改选项Z（或另增加一个选项）为过滤文字（原来为过滤圆），将选中文字改为编号后的值，而不是在其旁边再写一个文字，以达到自动编号的功能！
希望大侠帮忙修改一下！

ydf7332462

楼上是自动改号，但很朵人也要自动写号

god

请教

你的对话框中能显示一个acad图形，这个是怎么实现的，能否在vb或vba中实现这种功能呢？
acad在线帮助里有这个讲解吗？

lt_zzy

netbee
能不能共享一下你的《蜜蜂软件》？

netbee

最近几个月都在工地上，很忙。不过现在我和几位同事已经共同装了宽带，晚上可以上网了。我现在正在对该版本进行升级，等升级完成后，一定与大家见面。
　　我主要讲一讲，关于对话框中图像的即时预览功能，这是我解读了天正建筑后所得的。在天正建筑中的轴线绘制（老版本）中就有预览功能，说明白就简单了，它主要是在图像控制中进行直线的绘制。用直线来组成我们想要的图像。只要大家看看天正建筑5.0中的LISP程序就知道了（这里的程序可是明码哟），这里面我们能学习的就不止这些技巧了。

liuxinminln

对我没有多大的作用，但是写的还比较好用

aichong

最初由 netbee 发布
[B][code]
;;; ======================================
;;; ‖ [基础绘图系统1.5] ‖
;;; ‖ 桩位编号程序 ‖
;;; ‖ V1.0 ‖
;;; ‖ 蜜蜂软体工作室 杨明峰 ‖
;;; ======================================
;;... [/B]

能不能增加：根据先从上到下，再从左到右的规则排序？

netbee

最新版已经实现 根据先从上到下，再从左到右的规则排序

ZHJ0034

很有用,终于找到了,,狂谢斑竹

wj518_0

结构的高手不少啊

ZHJ0034

找了好久的东西,对我的工作帮助太大了..........