找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: CCarch

2013-06-03 QQ群:ALISP&VLISP(143438137) 聊天记录:签到

  [复制链接]
 楼主| 发表于 2013-6-3 18:52:52 | 显示全部楼层
张牙舞爪(13885696)于2013-06-03 18-52-52:
签到
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-6-3 18:57:39 | 显示全部楼层
从艺而终(345445908)于2013-06-03 18-57-39:
(defun c:hq_xiao()
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
(initget "S F")
(setg sf (getkword "\n请选择左红旗(S)或右红旗(F):"))
(if (null sf) (setq sf "F"))
(cond ((=sf "S") (hqs_xiao))
      ((=sf "F") (hqf_xiao))
)
(prin1)
)
;右方向红旗
(defun c:hqf_xiao( / pt1 pt2 pt3 pt4 pt5 pt6)
   (setq pt1 (getpoint "\n点击起始点:"))
   (setq n (getint "\n请输入出图比例:"))
   (setq pt2 (polar pt1 (* pi 0.5) (* 1 n)))
   (setq pt3 (polar pt2 (* pi 0.5) (* 4.5 n)))
   (setq pt4 (polar pt3 (* pi 0.5) (* 2.1 n)))
   (setq pt5 (polar pt4 (* pi 0.5) (* 2.1 n)))
   (setq pt6 (polar pt4 0 (* 2.1 n)))
   (command "pline" pt2 pt5 pt6 pt3 "")
)
;左方向红旗
(defun c:hqs_xiao( / pt1 pt2 pt3 pt4 pt5 pt6)
    (setq pt1 (getpoint "\n点击起始点:"))
    (setq n (getint "\n请输入出图比例:"))
    (setq pt2 (polar pt1 (* pi 0.5) (* 1 n)))
    (setq pt3 (polar pt2 (* pi 0.5) (* 4.5 n)))
    (setq pt4 (polar pt3 (* pi 0.5) (* 2.1 n)))
    (setq pt5 (polar pt4 (* pi 0.5) (* 2.1 n)))
    (setq pt6 (polar pt4 pi (* 2.1 n)))
   (command "pline" pt2 pt5 pt6 pt3 "")
)
(princ "\n------>>hq_xiao
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

发表于 2013-6-3 19:00:23 | 显示全部楼层
eachy(124471899)于2013-06-03 19-00-23:
长的代码发论坛讨论
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 593个

财富等级: 财运亨通

发表于 2013-6-3 19:00:32 | 显示全部楼层
eachy(124471899)于2013-06-03 19-00-32:
签到
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-3 19:01:45 | 显示全部楼层
武影倾城(420932492)于2013-06-03 19-01-45:
[qqimg]{6AEE7C74-E691-B9C5-C42B-03D0EE84BD2F}.jpg[/qqimg]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-3 19:02:26 | 显示全部楼层
武影倾城(420932492)于2013-06-03 19-02-26:
setg---setq
cond((=中间空格
子函数去掉c:
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-3 19:02:50 | 显示全部楼层
武影倾城(420932492)于2013-06-03 19-02-50:
左方向红旗
(defun hqs_xiao (/ pt1 pt2 pt3 pt4 pt5 pt6)
  (setq pt1 (getpoint "\n点击起始点:"))
  (setq n (getint "\n请输入出图比例:"))
  (setq pt2 (polar pt1 (* pi 0.5) (* 1 n)))
  (setq pt3 (polar pt2 (* pi 0.5) (* 4.5 n)))
  (setq pt4 (polar pt3 (* pi 0.5) (* 2.1 n)))
  (setq pt5 (polar pt4 (* pi 0.5) (* 2.1 n)))
  (setq pt6 (polar pt4 pi (* 2.1 n)))
  (command "pline" pt2 pt5 pt6 pt3 "")
)
(princ "\n------>>hq_xiao
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-6-3 19:07:09 | 显示全部楼层
炫翔(2363673534)于2013-06-03 19-07-09:
本群,谢绝超过10行的代码发到这里,
代码在10行以上的,请发往论坛
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-6-3 19:07:17 | 显示全部楼层
炫翔(2363673534)于2013-06-03 19-07-17:
论坛地址:http://bbs.xdcad.net
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-6-3 19:23:01 | 显示全部楼层
从艺而终(345445908)于2013-06-03 19-23-01:
[face13.gif]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-6-3 19:23:19 | 显示全部楼层
偷偷的想念你(544659869)于2013-06-03 19-23-19:
qian
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-6-3 19:24:28 | 显示全部楼层
从艺而终(345445908)于2013-06-03 19-24-28:
多谢武影倾城
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-6-3 19:39:27 | 显示全部楼层
小培(674337036)于2013-06-03 19-39-27:
谁知道怎么自动加载cad菜单文件
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1742个

财富等级: 堆金积玉

发表于 2013-6-3 19:40:13 | 显示全部楼层
炫翔(2363673534)于2013-06-03 19-40-13:
LOAD
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2013-6-3 19:41:02 | 显示全部楼层
小培(674337036)于2013-06-03 19-41-02:
可以具体点吗
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-23 22:57 , Processed in 0.192240 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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