xyp1964的留言板 - 明经CAD社区

hahap 2017-2-7 08:25

院长,新年快乐,
请教下如何自定义VLX程序的快捷键呢?我有两个VLX程序快捷键一样的了,想把一个换另一个快捷键,我在论坛里搜索的两个lsp都不能用,麻烦帮忙,谢谢.

皇上快溜 2016-9-24 15:53

版主你好，谢谢你在http://bbs.mjtd.com/thread-173339-2-1.html改的程序。程序任然存在漏选的问题，可能跟程序中关于圆弧的选取有关，想请你进一步完善一下好么？谢谢你

mjj3468 2016-6-1 15:36

大师，您好。原来在晓东经常上你的贴。
有一事相求，我想要一个LISP程序：批量选择三维直线的X,Y,Z坐标，写入TXT文件。
跪求
要框选，要是直线段顶点X,Y,Z坐标

xyp1964 2016-4-9 18:14

LSP编程、e派工具箱群：24942984

zero8337 2016-4-9 15:10

院长大了，为什么下载了你的程序运行不了？是不是还需要加载其它文件
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=169631&extra=page%3D9%26filter%3Dtypeid%26typeid%3D107%26typeid%3D107

wayne_myles 2015-8-4 07:34

xyp1964: LSP编程、e派工具箱群：24942984

不错的工具，希望继续改进！

xyp1964 2015-7-1 18:39

LSP编程、e派工具箱群：24942984

＿Levin 2015-7-1 13:56

谢谢你，高手！

fire9527 2015-5-31 14:05

院长大人，这个程序很需要，都到最后一步了，能不能有劳再看一下啊，小弟感激涕零！http://bbs.mjtd.com/thread-113410-1-1.html

726613 2015-3-5 12:53

;; tt1(可视化定距移动)
(defun c:tt1 (/ ss0)
  (setq dist (udist 7 "" "移动距离<输入或鼠标直接量取>" dist nil))
  (princ "\n选择移动实体: ")
  (while (setq ss (ssget))
(setq p0 (xyp-9pt ss 5)
   s0 (entlast)
   mode t
)
(while mode
   (setq mo (grread t 15 0)
      co (car mo)
   )
   (cond ((member co '(2 3 25 32))
      (setq mode nil)
      (xyp-erase ss0)
      (xyp-move ss p0 p1)
      )
      (t
      (redraw)
      (if ss0
         (xyp-erase ss0)
      )
      (setq p1 (cadr mo)
   p1 (polar p0 (angle p0 p1) dist)
      )
      (xyp-Grvecs-Ptlst (list p0 p1) 1)
      (xyp-copymove ss p0 p1)
      (setq ss0 (xyp-SSelEntnext s0))
      )
   )
)
  )
  (redraw)
  (princ)
)
;; tt2(可视化定距复制)
(defun c:tt2 (/ ss0)
  (setq dist (Udist 7 "" "移动距离<输入或鼠标直接量取>" dist nil))
  (princ "\n选择移动实体: ")
  (while (setq ss (ssget))
(setq p0 (xyp-9pt ss 5)
   s0 (entlast)
   mode t
)
(while mode
   (setq mo (grread t 15 0)
      co (car mo)
   )
   (cond ((member co '(2 3 25 32))
      (setq mode nil)
      (setq ss0 nil)
      (redraw)
      )
      (t
      (redraw)
      (if ss0
         (xyp-erase ss0)
      )
      (setq p1 (cadr mo)
   p1 (polar p0 (angle p0 p1) dist)
      )
      (xyp-Grvecs-Ptlst (list p0 p1) 1)
      (xyp-copymove ss p0 p1)
      (setq ss0 (xyp-SSelEntnext s0))
      )
   )
)
  )
  (redraw)
  (princ)
)

在CAD2004中执行TT1命令后，提示“tt1 ; 错误: no function definition: UDIST
命令:
命令: tt2 ; 错误: no function definition: UDIST”，请问应如何解决，谢谢你

xyp1964 2015-2-11 11:39

LSP编程、e派工具箱群：24942984

scnjlwb 2015-2-11 01:08

能否提供 xyp-lst2xls 函数的源码？
邮箱 380434869@qq.com
先谢了！

liuyizeng 2014-12-26 17:15

xyp1964: LSP编程、e派工具箱群：24942984

谢谢！

xjakshw 2014-12-7 14:51

xyp1964: LSP编程、e派工具箱群：24942984

院长已经加了

xyp1964 2014-8-12 07:35

哪个功能？

峰峰兒 2014-8-12 07:13

截斷LISP程式如何寫
no function definition: XYP-CURVELENGTH
出現錯誤，院長

xyp1964 2014-7-1 12:29

LSP编程、e派工具箱群：24942984

会停的风 2014-7-1 09:20

封闭的多义线异形孔最省料拼板能否增加一个最小间隔输入选项及得出孔相对行命令前孔旋转的角度

tianyuan 2014-6-3 15:12

2014-06-03
.tianyuan: 关于您在“关于拖动多段线一点实时显示面积的问题”的帖子
你好，院长关于拖动多段线一点实时显示面积的问题
http://bbs.mjtd.com/forum.php?mo ... &fromuid=206513
xyp1964: 需要e派工具箱(XCAD)的支持：http://yunpan.cn/QXQKsW9gAPmpF 访问密码 2ffa.tianyuan: 关于您在“关于拖动多段线一点实时显示面积的问题”的帖子
院长，您发送的云盘失效了！.tianyuan: 院长，您发送的这个网址http://yunpan.cn/QXQKsW9gAPmpF提示失效了.无法下载，能不能重新发一个下载网址

xyp1964 2014-6-3 14:52

LSP编程、e派工具箱群：24942984

xyp1964的个人空间 http://www.mjtd.com/?94014 [收藏] [复制] [分享] [RSS]

留言板

xyp1964