日志
- 分享 关于 列表中添加引号的方法
-
将列表 表（1 2 3 4 5 ）返回 成表（“1” “2” “3” “4” “5”）的方面 经过群里高手的指导，实现了预期效果 谢谢 天堂Ж 院长 经过指点，达到了预期 (setqLST_s(list(mapcar'vl-prin1-to-stringLST))) ;(setqLST_s(mapc ...
- 分享 <转>数学公式及函数
- ;;;********************* ;; No.2 数值符号 函数 ;;;********************* (defun aySign (fNumber / retResult) (cond (( fNumber 0.0) retResult 1) ((= fNumber 0.0) retResult 0) (( fNumber 0.0) retResult -1) );end_cond );end_defun ;;;******************** ...
- 分享 关于 点与封闭线的关系
- byghbcx的 关于 点与封闭线的关系 (defun c:TT2 (/ EN pt pt1 en1 intpnt tmppnt ang k) (if (and (setq en (car (entsel))) (or (vlax-curve-isClosed en) &n ...
- 分享 多段线中提取节点坐标
- ;;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) ) ...
- 分享 摘自网上的ssget扩展用法
- 摘自网上的ssget扩展用法 mode 大小写无所谓 ;;可以模拟带过滤的entsel ;;选择拾取框内的实体,选择不到就结束 (defun c:test1 () (setq ss (ssget ":E:S" '((0 . "line")))) (command "erase" ss "") ) ;;? (defun c:test2 () (setq ss (ssget ":N" '((0 . "insert")))) (command "erase ...
- 分享 提取文本的坐标，获取文字内容作点号
- http://bbs.mjtd.com/forum.php?mod=viewthreadtid=99102 可以进行手工编号、坐标标注，也可以批量选择对象进行编号和坐标标注，提取坐标可存盘txt 编号命令 wf 坐标标注命令 本人做了修改，针对wf 中编号文字插入点有误差的情况，坐标提取进行了修正0.33333 TQWZZB 用于配合提取坐标 ...
- 分享 entmake 详解 （转）
- 106. entmake 一. 功能 在图形中生成一个新的对象（图元）。 二. 格式 (entmake ) 三. 说明 elist变元必须是图元定义数据的一个表﹐该表的隔适应与由entget函数返回的关联表的格式相似。Elist变元必须包含所要生成的图元的全部必要的信息。En ...
- 分享 已知方向、边长 绘制矩形 lisp
- ;;;任意角度绘制矩形，已知方向、边长 ;;;命令名：3p-juxing1 ;;;日 期：Zo Roo 于 2012-10-27 (defun C:3p-juxing1(/ PT1 PT2 PT3 PT4 H ANG ANG2 TEST TMP) (prompt "BY Zo Roo 武赤公路 命令：3p-juxing1") (while (setq PT1 (getpoint "\n第一点:")) (if (setq PT2 (getpoint PT1 " \n 指定 ...
- 分享 打开网页 lisp 代码
- 构想，点击工具栏的工具 链接到自己的公司、 博客或空间上。 经过百度 ，源代码如下网址中 http://www.afralisp.net/archive/methods/lista/launchbrowserdialog_method.htm 案例Example : (defun c:al-launchbrowserdialog () (vl-load-com) (setq util (vla-get-utility ...
- 分享 从CASS中提取高程点坐标输出到文本
- CASS中高程点坐标提取，CASS自带的高程提取是整体（全部）高程点提取，当用户需要选择性的提取时就不方便了，本程序针对该问题进行了修改。 命令：gcdtq ;By 2012-12-17 宜昌 (defun c:gcdtq() (setvar "cmdecho" 0) ;指令执行过程不响应 (setq ff (open (getfiled "文件保存为" "f:/" "dat" 1) "a")) (se ...