2013-06-05 明经 AutoLISP 编程(102918348) 群聊记录：(vl-load-com) (defun c:rgj () (setq

明经快报

[zk2140]Kevin 00:35:29

(vl-load-com)
(defun c:rgj ()
  (setq d1 (getpoint "点取构架中心点："))
  (setq j1 (getangle "/N请输入构架角度："))
  (setq h (getdist "/N请输入构架高度："))
  (setq y1 (polar d1 j1 (/ h 10)))

  (command "line" y1 ((car 'd1) (+ (cadr 'd1) h) (cddr 'd1)) "")
  
  (princ)
  )

明经快报

[zk2140]Kevin 01:47:26

(defun c:rgj ()
  (setq d1 (getpoint "点取中心点："))
  (setq j1 (getangle "/N请输入角度："))
  (setq h (getdist "/N请输入高度："))
  (setq y1 (polar d1 j1 (/ h 10)))
  (setq h0 (polar d1 (angle '(0 0) '(0 1)) h))
  (setq y2 ((- (car d1) (* (/ h 10) (cos j1))) (- (cadr d1) (* (/ h 10) (sin j1))) (cddr d1)))
  (command "pline" y1 h0 y2 "")
  
  (princ)
  )

明经快报

[ptime] 08:40:26

？视口对齐

明经快报

[cie0588][cie0588] 09:19:01

[qqimg]oldimg/{0D6537B7-3A96-EC44-65A6-E92BCE4A5AFC}.jpg[/qqimg]运行了程序。老是出现样式替代，是什么原因？

[雨的节奏][雨的节奏] 09:20:21

你可能用了D命令

DIMSTYLE

[vormittag]桔子 09:20:51

可能改了dimxxx的变量。

[cie0588][cie0588] 09:21:20

我用的程序 没有动过dim..的变量呢。

[vormittag]桔子 09:21:36

是不是你自己写的？

[pzweng]路人 09:21:51

我一直用替代

[cie0588][cie0588] 09:21:52

是的

[cie0588][cie0588] 09:24:31

替代里面，每次使用程序。[qqimg]oldimg/{D1B28283-DB20-4EA2-7EB0-D3360F255C4E}.jpg[/qqimg]这个后续消零就没有了。

我程序里面没用到过dim方面的变量什么的。。

[pzweng]路人 09:26:38

有

[vormittag]桔子 09:26:59

dimzin

[cie0588][cie0588] 09:28:09

是哦

明经快报

[雨的节奏][雨的节奏] 09:50:01

[qqimg]oldimg/{E9A49760-9F29-205D-ECE2-BCACB28294F6}.jpg[/qqimg]

下载了几个小时了

有速度

但是没进度

不知道怎么回事啊

明经快报

[vormittag]桔子 10:14:13

lisp文件不能用utf-8格式编码， 看了一上午愣是找不到哪里写错了，原来是这里出了问题。

明经快报

ya雀无声 10:40:16

;;功能：带提示、关键字、过滤表、选择错误时的提示并且会亮显所选对像的entsel
;;用法：( clh-entsel  提示信息  关键字  过滤表  选择错误时提示)
;;举例：(clh-entsel  "\n请选择一个圆："  "A B C"   '((0 . "circle"))  "\n所选对像不符合要求！请重新选择：")
;;说明：过滤表与ssget的过滤表相同;函数由CLH521，2009.6.7参考了一些网上资料整理编写
(defun clh-entsel (msg key fil ermsg / el ss)
  (while (and (setvar "errno" 0) 
              (not (and (setq el (apply '(lambda (msg key) (initget key) (entsel msg)) (list msg key)))
                        (if (= (type el) 'str)
                            el
                           (if (setq ss (ssget (cadr el) fil))
                              ss
                              (progn (princ ermsg) (setq ss nil))
                           );if
                        );if
                    );and
              );not
              (/= (getvar "errno") 52)
         );and
  );while
  (if (= (type el) 'list) (redraw (car el) 3));亮显选中的对像
  el
)
;clh-entsel函数完毕========================================================

明经快报

[xxdxx001][xxdxx001]刀 10:59:41

明经快报

[ygp820601]风声 11:34:03

[qqimg]oldimg/{94ECA518-4D58-5D37-8B3A-5184CD3255FE}.jpg[/qqimg]

[不死猫][nonsmall]不死猫 11:41:04

[xxdxx001][xxdxx001]刀 11:46:26

请问有谁开发过刀模类的插件，就是打桥位的那种

[kwok][kwok]巭隼 11:46:43

[qqimg]oldimg/{B9DB98B4-5AB0-BFE1-7017-11000DAC2C67}.jpg[/qqimg]求代码

一品缘 11:47:49

哪位大侠有CAD二次开发编写程序的教程啊？小弟很想学习学习！

[VBALISPER]恐龙 11:48:11

群共享里有.

[VBALISPER]恐龙 11:48:46

你还是先把群名片改了,看着不习惯

一品缘 11:48:48

谢谢

一品缘 11:49:21

一品缘 11:52:45

这个编写的快捷方式是什么啊

[qqimg]oldimg/{F14D77F6-D4B6-153C-39A6-3896C8B90073}.jpg[/qqimg]

快捷键

？？

一品缘 11:54:56

[qqimg]oldimg/{3200031F-732B-5E1E-EDAE-7E29B390DD55}.jpg[/qqimg]共享里的这个编写，它的快捷键是什么啊？？

[ahwx0814]雨中漫 11:55:37

编程还有快捷键啊？

是你编快捷键给别人用

一品缘 11:56:28

我加载了不知道怎么使用

[偏爱云~小吴] 11:57:07

想学找猫老大

一品缘 11:57:40

他都不理我这个小良民

[偏爱云~小吴] 11:58:23

废话,大神都这样的,要诚心

一品缘 11:58:47

[qqimg]oldimg/{B04AB67C-079D-6AAE-2BE3-0BE82C89976E}.gif[/qqimg]

[pzweng]路人 12:01:16

水刀拼花？

[雨的节奏][雨的节奏] 12:09:51

[qqimg]oldimg/{FF6FD7DF-ED8F-7855-1838-2C9336D0DC64}.gif[/qqimg]

[soly2006]季鸟 12:15:01

什么做的界面？

[雨的节奏][雨的节奏] 12:15:15

dcl

明经快报

[pzweng]路人 12:31:18

录的这么慢

看着让人纠结死了