设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 各位大大们 帮忙加个记忆上一次输入的数
返回列表 发新帖
查看: 2330|回复: 8

[源码] 各位大大们 帮忙加个记忆上一次输入的数

[复制链接]
love1030312
发表于 2015-6-12 00:05:41 | 显示全部楼层 |阅读模式
3明经币
本帖最后由 love1030312 于 2015-6-12 00:07 编辑
  2. ;;; 用模糊距离连接线，弧和多义线  原作者是flyfox1047  感谢他提供的程序 非常好用  但希望大大们加个记忆
  3. (defun c:jf () (c:pljoinfuzz)) ; this line can be commented out if there is an existing command called jf
  4. (defun c:pljoinfuzz (/ ss1 entLine objType oldcmdecho oldpeditaccept fuzz okObjects)
  5.   (setq oldcmdecho (getvar "cmdecho"))
  6.   (setq oldpeditaccept (getvar "PEDITACCEPT"))
  7.   (setvar "cmdecho" 0)
  8.   (setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16"))
  9.   (if A2k4 (setvar "PEDITACCEPT" 0))
  10.   (setq  okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))
  11.   (princ "\nSelect object to join: ")
  12.   (setq ss1 (ssget okObjects))
  13.   (setq fuzz (getdist "\nFuzz distance <0>: "))
  14.   (if (= fuzz nil) (setq fuzz 0))
  15.   (if (/= ss1 nil)
  16.       (progn
  17.   (setq objType (cdr (assoc 0 (entget (setq entLine (ssname ss1 0))))))
  18.   (if (= (sslength ss1) 1) (setq ss1 (ssget "X" okObjects)))
  19.   (if (member objType '("LINE" "ARC"))
  20.     (command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")
  21.     (command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz "")
  22.   )
  23.       )
  24.   )
  25.   (setq ss1 nil)
  26.   (setvar "cmdecho" oldcmdecho)
  27.   (if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))
  28.   (princ)
  29. )

最佳答案

kwok

查看完整内容

existing, blank, command, called, target
"觉得好，就打赏"
打赏
还没有人打赏，支持一下

相关帖子
回复

使用道具 举报

kwok
发表于 2015-6-12 00:05:42 | 显示全部楼层
love1030312 发表于 2015-6-12 09:18
大大 我是小白  能麻烦直接改改么  万分感谢
  2. ;;; 用模糊距离连接线，弧和多义线  原作者是flyfox1047  感谢他提供的程序 非常好用  但希望大大们加个记忆
  3. (defun c:jf () (c:pljoinfuzz)) ; this line can be commented out if there is an existing command called jf
  4. (defun c:pljoinfuzz (/ ss1 entLine objType oldcmdecho oldpeditaccept fuzz okObjects)
  5.   (setq oldcmdecho (getvar "cmdecho"))
  6.   (setq oldpeditaccept (getvar "PEDITACCEPT"))
  7.   (setvar "cmdecho" 0)
  8.   (setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16"))
  9.   (if A2k4 (setvar "PEDITACCEPT" 0))
  10.   (setq  okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))
  11.   (princ "\nSelect object to join: ")
  12.   (setq ss1 (ssget okObjects))
  13.   ;(setq fuzz (getdist "\nFuzz distance <0>: "))
  14.   (if (= *fuzz nil) (setq *fuzz 0))
  15.    (setq fuzz (getdist (strcat "\nFuzz distance<" (rtos *fuzz 2 2) ">:")))
  16.    (if (NULL fuzz) (setq fuzz *fuzz) (SETQ *fuzz fuzz))
  17.   
  18.   (if (/= ss1 nil)
  19.       (progn
  20.   (setq objType (cdr (assoc 0 (entget (setq entLine (ssname ss1 0))))))
  21.   (if (= (sslength ss1) 1) (setq ss1 (ssget "X" okObjects)))
  22.   (if (member objType '("LINE" "ARC"))
  23.     (command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")
  24.     (command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz "")
  25.   )
  26.       )
  27.   )
  28.   (setq ss1 nil)
  29.   (setvar "cmdecho" oldcmdecho)
  30.   (if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))
  31.   (princ)
  32. )
回复

使用道具 举报

zxmmelly
发表于 2015-6-12 08:31:56 | 显示全部楼层
可以用一个全局变量来保存你想要的数据，这样在当前文件中就可以记忆了
回复

使用道具 举报

Andyhon
发表于 2015-6-12 08:50:10 | 显示全部楼层
(setq fuzz (getdist "\nFuzz distance <0>: "))
  (if (= fuzz nil) (setq fuzz 0))
  
改用 Udist
(setq fuzz (Udist 4 "" "\nFuzz distance" fuzz nil))

Udist函数站内有
回复

使用道具 举报

love1030312
 楼主| 发表于 2015-6-12 09:18:50 | 显示全部楼层
Andyhon 发表于 2015-6-12 08:50
(setq fuzz (getdist "\nFuzz distance : "))
  (if (= fuzz nil) (setq fuzz 0))
  

大大 我是小白  能麻烦直接改改么  万分感谢
回复

使用道具 举报

xiang19751218
发表于 2015-6-12 13:40:02 | 显示全部楼层
试一试
(defun c:jf () (c:pljoinfuzz)) ; this line can be commented out if there is an existing

command called jf
(defun c:pljoinfuzz (/ ss1 entLine objType oldcmdecho oldpeditaccept fuzz okObjects)
  (setq oldcmdecho (getvar "cmdecho"))
  (setq oldpeditaccept (getvar "PEDITACCEPT"))
  (setvar "cmdecho" 0)
  (setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16"))
  (if A2k4 (setvar "PEDITACCEPT" 0))
  (setq  okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))
  (princ "\nSelect object to join: ")
  (setq ss1 (ssget okObjects))
  (setq fuzz (Udist 4 "" "\nFuzz distance(模糊距离):" (cond (*DD*)) nil))
  (setq *DD* fuzz)
(if (/= ss1 nil)
      (progn
  (setq objType (cdr (assoc 0 (entget (setq entLine (ssname ss1 0))))))
  (if (= (sslength ss1) 1) (setq ss1 (ssget "X" okObjects)))
  (if (member objType '("LINE" "ARC"))
    (command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")
    (command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz "")
  )
      )
  )
  (setq ss1 nil)
  (setvar "cmdecho" oldcmdecho)
  (if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))
  (princ)
)

(defun udist (bit kwd msg def bpt / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (if bpt (getdist msg bpt) (getdist msg)))
  (if inp inp def)
)

评分

参与人数 1明经币 +1 收起 理由
love1030312 + 1 赞一个! 谢谢

查看全部评分

回复

使用道具 举报

lucas_3333
发表于 2015-6-12 15:48:08 | 显示全部楼层
程序并不准确, 就算两条线之间的间距为100mm , 模糊距离输0.1 , 照样合并
回复

使用道具 举报

love1030312
 楼主| 发表于 2015-6-12 21:54:13 | 显示全部楼层
lucas_3333 发表于 2015-6-12 15:48
程序并不准确, 就算两条线之间的间距为100mm , 模糊距离输0.1 , 照样合并

恩大大发现真详细  是有这个问题 但是不知道如何解决
回复

使用道具 举报

下文没句号。
发表于 2024-6-24 23:38:34 | 显示全部楼层
是两条线连接起来吗？
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-11-29 06:03 , Processed in 0.184787 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表