[LISP程序]：本人编写的写图签日期程序,巨实用

ljs026

大大太棒了！

midali

好东西，拿下～！

urljit

看了这个帖子，我也在我的“用对话框向cad加入TEXT”的程序里面加入了写系统日期的功能，同时可以在对话框里面选择字高、字体、图层……，谢谢大家的提示。

qoowd

斑竹做得好，可方便了俺这懒人了。呵呵

ss1025

cy956:
请教一下这些代码怎么用啊？

zzhnewid

看了我该好好学习一下lisp了，功能还是很强大的，以前老是担心lisp程序功能较弱

82406515

我正需要，谢谢

longer108109

正在下载，谢谢！

jjss

哇，斑竹的那个功能好强，是自动读取系统的日期吧？厉害

cy956

最初由 ss1025 发布
[B]cy956:
请教一下这些代码怎么用啊？ [/B]

加载了doslib后,在lisp中调用,格式上面已经说明了.

bigcat9898

果然好使！非常感谢！

ss1025

偶也写了一个插入当前日期的程序，请各位高手指正
(defun c:rq (/ osm tmp y m d ymd tt t1 y1 y2 y3 pt1)
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0)
  (setq tmp (rtos (getvar "cdate") 2 8))
  (setq        y (substr tmp 1 4)
        m (substr tmp 5 2)
        d (substr tmp 7 2)
  )
  (setq ymd (strcat y "." m "." d))
  (setq tt (entsel "\n请选择参照目标"))
  (setq pt1 (getpoint "\n请选择文字插入点："))
  (setq t1 (entget (car tt)))  
  (if (/= (cdr (assoc 0 t1)) "TEXT")
    (princ "\n目标选择错误，请重新选择。")
    (progn
      (setq y1 (cdr (assoc 7 t1))
            y2
               (cdr (assoc 40 t1))
            y3
               (cdr (assoc 50 t1))
      )
      (setq y3 (/ (* y3 180) pi))
      (command "text" "s" y1 pt1 y2 y3 ymd)
    )
  )
  (setvar "osmode" osm)
)


另外，请教cy956: doslib怎么加载啊？这是什么格式的文件？偶也是菜鸟，请斑竹说的详细一点。谢谢斑竹

xgwl

楼上的程序还不完善! 如果我空选了个 参照目标, 结果还能执行下去,最后:" 请选择文字插入点：参数类型错误: lentityp nil"

cxzly

好东东
小东东也能给人灵感

ljpnb

我看1楼的程序思路是正确的,值得参考,大家下载这些程序并不完全在于使用这些程序,更应该借鉴它,消化它,并加以修改,加入自己的思路,使之能更好的为自己所用.如果说1楼程序有不足之处,那就是少了一些判断,少了一些花样,这就要看大家需不需要喽.....