日志

分享 substdxf

77077 2015-6-30 20:50

(defun substdxf(e dxf) (entmod (append (vl-remove-if '(lambda(x) (assoc(car x)dxf) ) (entget e) ) dxf ) ...

390 次阅读|0 个评论

分享 无聊发个四舍五入的函数

鱼与熊掌 2015-6-19 17:46

;四舍五入. ;| (cx-Round 10.666 1) (cx-Round 10.666 0.1) (cx-Round 10.666 5) (cx-Round 13.666 10) (cx-Round 15.666 10) (cx-Round -15.666 10) |; (defun cx-Round(num fuz / tem) (setq tem(rem num fuz)) (if ( (abs tem) (* 0.5 fuz)) (if( num 0) (* fuz(1-(fix ...

1220 次阅读|0 个评论 热度 3

分享 dtt-write-dialog-data & dtt-read-dialog-data

lucas_3333 2015-6-12 19:05

;;; (dtt-write-dialog-data "Iwin" "Window Width" iwin_window_width) (defun dtt-write-dialog-data (cmd_name key value) ;; salvar el dato solo si esta presente y sea string (if (and value (eq (type value) 'str)) (vl-registry-write (strcat ...

166 次阅读|0 个评论 热度 2

分享 lisp 编译模式

lucas_3333 2015-6-4 09:02

When working with AutoLISP, all symbols functions are usually defined either within the document namespace or blackboard namespace (if vl-bb-set is used); in this way, all defined symbols (functions / constants / global variables etc.) defined in the namespace for one document (dr ...

179 次阅读|0 个评论

分享 多段线中提取节点坐标

skg123 2015-6-1 14:32

;;46.2 pline,lwpline点坐标表 By 无痕;;示例(vxs (car (entsel))),返回三维点坐标 (defun vxs (e / i v lst) (setq i -1) (while (setq v (vlax-curve-getpointatparam e (setq i (1+ i)))) (setq lst (cons v lst)) ) (reverse lst) ) ...

1705 次阅读|0 个评论 热度 1

分享 话框出现的位置

77077 2015-5-27 09:34

(new_dialog "laytools" dclid "" '(0 5))最后一个就是定义对话框出现的位置的。

502 次阅读|0 个评论

分享 Grread and 3D

lucas_3333 2015-5-18 10:01

;; gc:grDrawPolarLine (gile) ;; Using grread to draw a line from a point in a direction given by a vector ;; the line length can be specified with the keyboard or by left click ;; ;; Arguments ;; startPt : Start point of the line (WCS coordinates) ;; direction : the single unit director vecto ...

219 次阅读|0 个评论 热度 1

分享 output layer list

lucas_3333 2015-5-15 20:01

;;; Layer list ;;; ;;; By Jimmy Bergmark ;;; ;;; c:llfp LayerListFilePrint ;;; Save the layer list to a file, (can be imported to Excel) ;;; ;;; Example: (ax:layer-list) ;;; Return values: list of layers and all layerstates ;;; (Layer Name On/Off Frozen/Th ...

229 次阅读|0 个评论

分享 获取块的图层列表

lucas_3333 2015-5-15 19:42

;;; BLOCK_LAYERS (defun c:block_layers ( / myblock tlist ename llist ctr) (while (setq myblock (car (entsel "\n选择块: "))) (if (= (cdr (assoc 0 (entget myblock))) "INSERT") (progn (setq tlist (tblsearch "BLOCK" (cdr (assoc 2 (entget myblock)))) ename (cdr (assoc -2 tlist)) ) (wh ...

232 次阅读|0 个评论 热度 1

本页有 1 篇日志因作者的隐私设置或未通过审核而隐藏