434939575 发表于 2023-7-6 13:38:58

请问opendcl的拖拽动作生成图形必须手动刷新才行

;;问题 拖拽出去生成的图形要手动刷新才显示出来. 所有刷新命令没用
(defun c:tt ()
        (command"opendcl")
;(dcl_project_load"lvman"T)
        (dcl-project-import'("YWt6AzyCAgBl9jpuBuKTIyPSWrkr0JWjpv1PklRv7IfLb08m1lNHyBtsUs/I/+tyj2R8bHV85Mud"
"gcuphlG//gliWQha7uJZ3WhR6D4270569eHCXtB+O/4l/NnmeSXEqEB653shNULSmqtIi+NE2cXE"
"2AXYkePnpecti9OwKKmKMqGEMOPQ0EArC5QWC9dMUvkRTNmzLZh3zRvyh/FV8seMDAUeMQKCbZg4"
"jVeFkW2Y6ge+ohIQzjlBHxDM4aIeEN+K7YiWIETE6UDFoQAMtACZzZgoBQLNs0Me+4Au+1WgMqnH"
"sQCBaEQN/YOBaIUTCbuFNg67ZdOiHPFAF43JpN0tiEWGoFcFmCiFlxuYVOqINH0C4ecSpzFmiLEy"
"4MxBtVPVGbMdiFnx5bfNmAxAwxuxIQPhhzeREhC8kZmYYIWBMaUxsKYNieW3DdOhIU2SiUEdAQPh"
"x720rZgfBZDqM5HJWlgrlRSpc8WksSS/keHKqQSiQhYwptXFwY41iA0Jk7el01Xlt5kkh2FiiOmQ"
"zIxO64fqQ4nOB3ApgN2etAFmmlGhFJlBYeLhepmBuwIqFPLVEIxnDSZAPJswsCw8hlEVQO3BSWHv"
"QnBYgaaal4Vhi8AR8Vj5yJSVr4uB0Ecxh8F3jAGlmk2CgNHlgou2wRLQ7gL7jII2tZZQhbGZEYOy"
"miEl4QOJQhsx0BEhgdTdiJ5FVwX554L4J9bRtbLaUAWFeEaCykvthS8T+WVjn3XtBeTBh0uawWiW"
"gtH8gukyJfkpeJm9RAbCK/DVkMi4B9Pr+RInMKUBqSTtQxPzCYy7nkQhdowgIzDehfHnkdbRJTMg"
"FrBgv0kgcwCDQ6DRX8GumtG7qyBywIH1v4nZv4cBcIyBoxwXWKlLwcFvmTFKh9GdkYMC7dmhAUTO"
"wsX9jUFp4hElq7mYobwLo4EmLhSxoNA419B0MpLFJIeRIaImQh8ll6JIP4nkOZbNWbPdGIzlvytB"
"bKKGAadEgd31gfSO7ziLN4WH/QIKuOifMAWQPxRqWdHJ0ONTAZOd6kAYYXsZ1oc7kMrngjuVkYKG"
"lICwQ4jlcS9dQYeNK4HzIciBoR/gz6FFHYeiH0Hhmj8j49BT+FIbjBbuAdLI3tOBPXUGWEaBNu6B"
"056E2fyCwz+AtT+AKfyCYXqHQXCMwWSaAVO2YXOMwWCagdnAsSKALL35kN6Bc4bj0eF2UIGPnomR"
"SYS8AalnqcACqLRfDanZyZIrcaUBOZNBQi8A5oB5kMKFKIBfrJXTohCbViOWJAmc1jd27qWYD2dn"
"xYK1XAiAd/NzkknBlzaCbYG6QY+hEUAfDe+EQXMcmqL5ZkdZuvlFkYBXQDykiGRGObrKmekr+2/k"
"wA1QU/TD25+LCKYpDI8mhcLajvKiEewZWh/DBp3zSdRZ4AbcVLVMtFm/KcCEBOv/BSAqoYaYha+X"
"3s6idaXsmhaK0nC4ULFm/nA0lt4KRAaRw4ncrL3HDZlUrz+4RIaYycBr+3CM3NZeWTHg0oxC2QV/"
"RLbMQnRjNsOFLM4+eQZI8iO4C3wTAB83kQAmqxM+KLodgf4RfcuDOYpSPiOFSF5ERg+cOkpEdqV/"
"lG2msRyv/83/7JJ+fJBaOzex+c+16e7OVNK4TVyXRzChc6yjzeLM+R2ZZDDxDgTSAwDpsSGejWnQ"
"FoFjoU2M/jfg7/08L6YgD+B77NURbzWllOnohZDBgyeLv3lh9h+vT8JbrrU1UcPaLHHwBT8iv2EE"
"VhPD7c4wjujynSkhAyvjcL71lGcEtvPt3N6EUU2d+ot9RWbFwtV6j0IhxATZRGmAB91xqH8D+ZH7"
"z7XDVP5Zf9emwus0lCGKP5ySehOcppsga7RcDYK/p2moNaVQTCjrWICThJGsf5DxpFCqjFFksBtP"
"1X0UcQyA1NyFwQqT4ROmGJLAnBnhomFGCLE5IxH227HnB4SD4bSVaev0lCBei5Rkgqyjda53Nz/h"
"q4P9LCmjddqhOYk8dsoBEn0d6Q2jPoOoAx6XfVfTjabPZLG2e48KznkdhS5F4xCTU3MBUanrwZ0F"
"OGBKt00MboatqSDNcbgS5laUY3SaE2YgfvJhwY2wRVoRw4tow2+EQ13zgk8RuAtwtBQFBeW6B/ii"
"rT+g3MuM2SAMed59lF/cqX6A2xCA1gFvPhI/oFzKjZH9pn8K3+cBJoEfBd77AZDz8xgKkpjzC8Bj"
"ekje/wGzxQwdvRDw/q39wmOoEXbgqS4akoxRddSFtLNzvuLnBOBuQZW3PXpX9J4TRym/QVWiAn4O"
"uUJv2rYZC4N5SG6mvKabIWiDi6FJLSBphJGBRoaxyIFrNeKNuB29FEJdxRgBl1wSK6PXkWcHtmLy"
"GXrgf2GWf4TDXwdN6k+o/2pJeAOCO3mKmLKCXx3pCat+AY/8hhF9XIgwX2M+SvJl/5GPnbkVb7Hu"
"PqDyfg75hiD8z7XBUtrAlUmBYIC8Y5zJeR3pASf6iUWSJEL/DGGGol/cVQIJkoxR9e4Blmd3xzWD"
"SZlJZZ7xhBBCXxOAzn+zgrttIt1WGFqa0bdNrrshwoHQAZ2rRZW8iXDyI4Abn6TOF6Ogi6sF4Qke"
"koxRdZettgMzROaNwv3ArjFmxaLV/IoRxaQHxKnDgPEG+suPiYXIwGqIYP4e8M5R5Jgzxa/gzMnB"
"UYNiIcqP4blng302Fnkd6QUrJrBNzCHxuTxiZOi8TYzOZxmwdtPDsHUkFWT0WHWX/PJZmhtLXUbZ"
"G4MToUJnn1EVswPvS6Yd6QNrluVZPQtC8cFswQSpQmc2uB0Zw4956vLVirPt7gUhiu615kRhvUC4"
"UIVUrksx3Brw00Tpi6gbTbBECKcp/weNGnTRsBXFLo44ll3IB0xfaLPt7Mk8U40aAoqzaaxCMbi5"
"goc8RJm3hpblUUqdey1KMbg5oQLfz7ULLvYHwG5ujQJfHrdHXQIC962XrioopyKvMDMxBNaUMJ9n"
"B7ryxeR4ALzQyZmDIQ8dPmJ1IAGWqKDEBmJvjtE6nnvVKS3q0MlufwH+RoQAHffJ3F9c3waGzEIR"
"t6abRFY2sbbppoZdnGLamNG6nUd6t4Dtg7kSgQeek9qFP/e5SR9PLIXppMGqgLulgFOXZ6eYnaUj"
"VGBst4kHSmjbq76Rv02M1jcPOKj/iho2MfhfMXjT4L9/MfiaZyqSZ2KugNeIctiIUYvyHZBnWbrz"
"qoEzkwEUgZ0TgSltGRq4Dc+zl5NQa/H3mmkHOoicZ0cTqJ1nZ2QPyjlDZXEnGVGVt4Q61XC8Rn0G"
"hb3UbMJ/NOL75oYJl15IgH6GPc7UNk0BQdD0H1E2Fn1PjIkTPk0BQbD6d4b1cxaYkdFaT38Brz9y"
"gvOZe4s/oms5V4qd1vvuBKli26yZEfyECQUMStUXGShjKuWxoaH9uQqOiSkrtZQ3M9UwguY8XADK"
"C5OLQXrkkYFf1qWB1K/96IgBR7H2R7jnFegyhU53gJjK45yKHVjT2Gd3F7Iij+aHftZgTYk/Yo3i"
"qKztug3xbbo1njmmq2gpHmACUf+WXvijtHu3gO2DuRKBAIo/pvzydPMj0PqLX7NnNw04rOLvShka"
"Q9UXCLCQUaO14u+5s4RDXdcZ5gT41xmmo00y4L+aZzLgv5pnqvKKgjWxwZpn93W3TexCXbdN7EJd"
"hY3yigRGEJmRDsQp8bcgQl0ZMozy0mXXGeYE+NcZRnoti0SXifq30ADEr5F3dQkIqn2Bh6mRd40H"
"lZyRQYGYBbwKjKGFjTFpgR+xQcOJAfI24O+aZzfg75pnJ88ZOkJiYcSKXJE7De8BxQ1n2SkMhELZ"
"MbbLI0S6Tfzh0q9NLONCB8xED5w6Smif3Q5Tf4t27rjYeZdzHzPDlv5bdF7o+I7ZSRyF/H5Pb5c+"
"En7FqrRtTAkx9hYKfsB8l1O6GHk3eTd5Pqw/JXkmLXBRb4Q3WDxj9tlysTltJ4F+RH4Rln4XH407"
"GrE4l10dPR3J10+GuZ0/fowiCE0Jgs1S4EkWfwpeLDqaP670m0Jd0Q6DwbaXdb/2t8gGNPDHColk"
"6SBGnKz1wlWRW4jiKiXijGHTKZWSDsRVAaXbjvKCyDcFrVpa0mVmSEsnbRPSA1D8WT94gCvrmxPQ"
"UNHhAehFgG7Cc5zNl02wWIwiAbpPSRgYlUHd11xQtORDwJVQg6J7y3AmcTa7aBz/0f3QyC5NtlUS"
"B/W6KoHGofvJOiba7/x2kj4GCA9bw2rEpT5nb6wgsXd3d3DVp+VYMkEG4a0BCZeQVeL0Gfqt9bmk"
"B4egxYLFDUOpiUNdMeT9i/Ieggb2csGcON9kXGSGCZMzGr7RshjbbLcrj+lPTxGIDkkBIXG0hoXN"
"tnOGaeftQGNWm3HmusHMcTq1IVrlq/lsgICgQk2CPY8L3+OBTqcGhlUWPLrISS/hcByY0QMRvF8F"
"bRcgK0HxwZIzepDb/AM2xJ6RM6q7IU0JHragOh3pD+MmsE1c1R1QkomxjWLvvwWmzlm7jiJqBjjg"
"THmZZ2fE7dGoqGyCDzmGlRAbk9PBgCh9gdDEiKHomrf/YGyL3EeI/liAAHE2OghSaGWWzH0zgnsL"
"Q7Wtz1IlyF7PacqMeS65Jh9bSF5spP8ogIClfApuyHvcXXOCxUJ9EMwyXfbPLDXgyxqSjFH1QICs"
"NdpmVVz79clc3P8B2Rla1gGfoxt9HekBJ1qxNozysp3Qw9HhQl23TexCXb4AQl2cb6fJGVq6QEJd"
"MeXK5Bgj5uQXa7SmG0Q2+gLv8RfA7o6ZKpQhgwJfP1mBdph1d3iPKUYhNq63QfyHTPy6wfXBgIc8"
"/DCAb7JpbJKZh0ksL6l84QGUgbv3nmD2bE8N8WvVJzNdDzjAsA0+IKURtI84gPrRiXHiwLvX0oyN"
"Ka1CHXCwTXwBZzvcso3Umg992qUREa0Z9jpIkjTl+e5FugAylfLBjKup1WIAqkLpNhrUrrvjXBGb"
"8E2IWD5aRKz9PGO+0D2QKoFHhfDN8ka1hyIvcg1kZZeeUItx3pBNkUVkhzXKN3bGXdsmm9YBpvzL"
"f/Q41/ZFrruhac9/UsbBk8ilKg/ZBx5gAfdLno3ZRkUSfbSIldyZZaQAjlGWh6i6JI5bsSIZPecZ"
"4sJDnnN3R6mi0zxu58OeR0hmNSvc/eQBMIVMC/UOu8AzFoJ1pWAOSqQzeQfFlkdJvm30RwqKElJO"
"6T47Rc5ZgP7KazY5UonUbrO0r2A6zQzKeT3CviTHUUUZ+kNnxZKnpk+TCiUsQMGzoeEMJNHYb2Jz"
"rNVHk+dFfLG2zZi+mfI6E084HHOy9UlvfYEuHJzhCY6JW3yAyi3ZHIADVXmTV4x+GAZlsHUZdd9D"
"Vp5R1VduMZ+ixw3K9HYcxoAPSBmRHtP9InEBJzOf0ejUHZMm/0nuwv5blT6njdERS//BDcOWXhUK"
"3ni8oSFLefZTHlp6YH6MZM9wTGMRuvoH1TfaoANXJsqW3tGA20M+mqujcdXEc67I3ZfcqzrAc6qI"
"0dZzZswUsMl/r//og1WD6+3Tq+3gQLwI/oR6iE1zRCbGDOx7RP5jLloYp5spv/By1fdNzFaTe5Ez"
"HTwxN6GZf55nh+I31Reo82oLCM/WmGE3qqdgOm0LyHmvOiOTv3KBbB23x1nn0GZlfxi4cPdBrGBn"
"xb5VuLLG36oBZiX7Ol2BPpiMqRmBTc6R/hqBwFbIgWfqG5CkQhSJDGxBQQiHcHzmYSkEoF6y1fP7"
"RW6M2Ue9b485AdkepVEHMN/sxzz9f2PeoB+F5k1ICAco96vS2KcfMbiI3AoVAARXNtXl/SoIiQOn"
"247yAqBasbZE78Jct1Xswly3VezCXGfz+R6rKukeYLOm+yN9JCDvFofNHuBquLjFOlMBMU4x2tGA"
"S9FaaBory86AD/EWJStZ3gf6vxRcDvuq1fRqjZF8lKAhQ3OASaMKLaqCF0ATWv6j/VGYsT/e8TwH"
"Cqxu+4kiqrwDS+Dvk11Q41A00ebhIEaiMNVMNslHA6nbjvKC8Ge5TfwP7cBP7ea4M8rwZVCk+TaF"
"xh+hoEpcpLlzxYjYv7R0stwJheyWYEmSpOW7qf+ID71QgH6GPc7MOI3GH5mgUv9zFmBJkp2Rpf6Y"
"D73fxYg8SvBl2MMXrKBKjcbZwxesoEokx30XEeTbQl0MQoqxAxHutFRnJ0sNs/yKZtkZI3yxtg2Y"
"nkJdb/Dny25tgVCxNjId+CPg7+a4csVCXU/zZwgHeIJPPfLxHkPTqE+9X+BvAjmV5p9usTZhAXMd"
"+D1CXZ7RC7IO1hn6nPJWYk0y4O+aZ+e5Qwc47Bk6VQleBzjo9L5UDUNaUDbmYHCs1fwqXmDsAwY4"
"AKnSsU3MoetazuKQVRBqiMvseqLrOl+ljTRsn9DkAbE0bOFFOxuiAgq66VaVWf01tbSToa+Y0JqT"
"3pjxzx4nLXQRNhgFe7nxYdlJPIpsl/MuaQneIDdcnZzmbZ6YNcfKVmRR77zgfI/pBGlFaW+AW5Gj"
"3w47a8sRnnDQrFXqGUDDYyaAlk88cWTCPyM+o5yAiV1vXXHvYE2Sf5O/phsjeQ4R/UmG/U2QjVBj"
"Fo74CH8Ic7AsgSMI/oQpzGGxcrqFN6Ce1I90hES+1u7I719hSmmspP6qwY55CafJD5JM0G1qD6bI"
"icwp5Yp92yHeG+CeXHYhpwFth8+1ylBSmWfngG4ZAP4tpzVYikr67yv9Ci8C7ONdk4p8BTaeZ4dD"
"7ZzyYk74BjKq/KF+Nrzo/yU2q4L/B0T2e8BwasBrcHypA2pIYbzFqaupQQgZuMB1TEFSWJB+mL+2"
"UMuNxhUTgb/BoNtEvJkBw5l8daNxdIghNpY5ppj38iPQ/fyhmPe6uCGkwuTBzIPpmF+ISBFLDzhQ"
"zJmdnNkiBPeZBiqSt9YgF5kJhoJwAQE5CINDVakIl997V0JdwRFwuE1cAJ/fzIb05X3S26D1Fp+R"
"uL2ikCqIXqa71QoMwG9kQSq8wRygZl0/onK6ao8Z7izyb6S30q/9WICeUp29niRr4OpH9+UvJ9bS"
"gUQY9LljuQoxBo8qdIAyYwHMk6KPcAb43O/BxZEfmXOBQK+2wReFZGNGt1frBTxVAfJ1hUTWBxxI"
"R8l33HEO2ePytSxzAf6YOU/BTvAku8/bGmD/OIA+032n2cKyhgC241OmSCyYLRaacbaCzi5imdKj"
"gVMKjGm+sBvgZrqLeSKBZol7wr3O+c+1wjSyJ**KKlGBa62Yw6IQTHkB/sd6QsrJrBNzLW5ReKI"
"AwlWmomlvwuVKkJWYul64O+Zs4RDXYByxKfn+htDzWD8kZD1gslXvnkC+9nCU7RSPfaxIbXSjAiR"
"oUOTGihLlOMEPCDRdnwjPilkJPbcAHUI06FCdgECMTV1J42ZTwz/wmPGSfkI8T8SPW0BjP4PUe6U"
"ppjbQ9pJWga72vku6ISGzWkuLg76J0J5miZek9pEgCe+4SmvapJn6oX+EjxbAS3JiXulAudJBL8Z"
"znnHeQ5CCIfpezvo28ljaSOoO+PQFPFGp0GhaYDl3FiAkBPxofTH471DcJd9itr/warHjuFpCbz5"
"0sZmxYK1vLusVqZVuLljfqnEgd3WgZGQEckkLoRE9douSNk6hAGeWNX2mPdIgP6KleMJAs/yI6Ar"
"H0extjDOlZC0bzoW4wzEkwc4sOSLBTga8w+WZ+ZZ1d6Bk34Geoh0c4LNXNVMpY2VncGFHyWqjzmx"
"YY9KoOCTb3cZ4kmm+fih6MuPuYNQi3HQRzeQukBX+kXwX3uJ4KqOyQvhByB/mvsBaA5pr7JhPvFP"
"ncTpkYaJ+giAhtIbiRsdiZSQgf5Bw4tOCToiOBEmkHmWPqQ+c1XyTPBRWolKfsW5mYAZ/tF9E4I9"
"pWB8cw95vmGIYVUBB+CtZREnUmr0rtAeMURhHH1KlL3Ibm0BfuK+caAuAWrKNQz7gn+UkZ8DFv8W"
"nMHaGfrxyakrwmDx9kEZGhSonWdXFnH4sveSM/zL+OZPZnbTvVQH4XRjrynz9VCmjjn6T4GTSXrT"
"v+Uwl5MPkszRfHuFNgOALMG6yVIU78JXDEtvVlvUHvUBx/7B0wEzgr2E4flCfICNlGET3kiFiYct"
"hfFJvceCdSuTIWCqwfLxHJOLMoUhSIVK8yOIKz44PgKAgE0eGGPIpv1DsY9GSGTKfU2x7e6H3Jxb"
"CGDsvMV5NGhDha1qwpksoWAr3P0CuGgKki2ZOebqw+luA2Us0eDXouJ3jnOFuh3pASe2Ag4BAMqV"
"cccAb2ONYiefcpH/jV4SQIFOtNQhmX6UYsj/KpjyNSJwjOARRrw21RaFGikI97ZVXV/bGYkcfR3p"
"AScugdmQfccA/pLDSF0bJUpCgeiN8qoNRIjlUHcGOCBOV3wVPLwk/lmCADp1VHTYygmvfA6/0Ppc"
"1iUCSOPEQhgxhPyx6sJnbaLw8ivjrAAzG0Vh9NAjYiMDxSfMvTqv8iRdi3cFeVHaso22711QkfWi"
"WSSepMzIk1HMexOCHRGBHZhhBYFZX18s0lh8FeYwySjliINjBjjAHqhJGVpqAYLOaOApX49WytLL"
"VAaDwjpo7eZtSujmS89JWrD2JR3RGdPfjom58OVEiN0QS0j+dio2uVCFVC6O8hesvYfM8MpUCyJo"
"O83JR9FPUzXZ3c+1wHTqQAH/aRvvHFXiUZXPasxvO8Up/MHS42suJQ7A0hM8Cl6Cc/Hb8COIKz6o"
"aOmgtH8nESOpwXu4sxai1g5Fp5fXAScdkYap79nDhDkAtEWlNFJ4M4Ij4vunhLmkDaJ1LQo7tMKo"
"P++Vm5GpQUDlTAnvV5VetQoGOOXW5bMUbK+/Sp5glB6SzNFsnlHCr7nliA6p0v1uLbUPpB+BrXbG"
"ddhDiYGmm0RWMm2BZ4Ad6RfrZgewNjHEs6c1nGdHatrC5VFCXVHkShkaYzbg35pnNODfmmc04N+a"
"Z+SZZ2y6lGdsxfavTZqhaVA84SCA3xm20QWHchhv/Rm200pXJAVsnwXKnD43gTluBPiCDTP6JNnV"
"z7Tm7u7OJNIYsLbEQlqBisyC05Bq4O9R5IsHOCJxDo+lACDKGePodKDwVmgHp4pw1/m+w1whYbzD"
"jKipFabh+IZpO5Nv14Zz5ojcVuVZHxgF/eu82VyGhcVqqQTeyV7ZaarDBQ2igoRwX4IVhZnJX/ep"
"YKCN2MCJC6b8IYHbqXAqIDFO+IRxOwhTktUBbcr75XSpgOnTiCHCHBxtpJXBn6GSLz8TfKgopQgh"
"ui4J1q8/1x47545xCdTpHapDeuGziAFIwXNStYjQogujjRls+X7h8yOoCz6GRQUJA2CXia6DXoQu"
"rqmV/JLPm4YZMHlj3MuAlaZcmcOD59ZhuoXPH4kUoMEVkszQfVOxGSvIXNNckcl7HekLI9aJn4yk"
"A6fXp/N2x++8z7XHcFKZZwcb+U2hnopgMPEOxGuaM+7BQoaC5B+X6i0GOMAacBCw9mHrKtyMcoWb"
"mH2iG8lEr3+4dl8MQghnqfu8pcvxDuCZcIYvZENnxcLVekYcIPKxo7PfVpSE0blspwVKCOcpew65"
"AyDx8QRDG59QMTEHDPIjmCvfnmDOpsPy87i+Y1a841THkB2eUNaZOgdsdYkHjotPCCeo+BThT1g6"
"SGHzydmfqkCIsbEENkllA+LF8MULzZcmIoFfATOLYYxlJIEzxJeWwcFpq8F4gO/JgbUHOFBiDbnF"
"wsRborspiOpPAiBCXJynxgoS17ztGZpbzWCxNihcoAD5amz5w9yqajvj9Bp0gpYDgleMIpiIlr9P"
"+oeofGPzIoLbz/bBOh/qxoJGOGpAh6CmmyFoDYc1I+3TKc2L0aCAW0wZoJhxxfaagNHdL+yzRYDc"
"ZbOJQTveGsXptuK6ofU61ceA+bSmmyFoKvmNXJOw9z7U2YCJ1n2Y0N2Au+h5lL6d0PWBfmN6oouP"
"4d39cJBEhwmW3vnFIIDgcJgOqbPB1KEHSkGB6fJNTEyeZ7/85QuxZ+ccSaROwPjYZpJ1Pk9psOmL"
"MpzsHRPyI9D9fJh4t+ZHs1Tz8kGYMwqTHEMIx3B05kUPn7z7GEjby32Wn7NJoYqYcA+Sa+Qh2hVS"
"p+FNWkR+KZwRCz0HJwURCy1WpKlgls0BjusHW8y0eraLsuVcYAOIYbgg7uZVNJjzqxF+A4iRsdbo"
"60mubZIbkrzRdrp9SFDFK9wQvzFGvHDO/deCfkVF8Cum61yMTy3tmLLaR00XsDLkTW2X4uebQl1F"
"GaMPERTEran8FcMIiWD1s/4ZmrVYBzio85pnN+Dvmmc34O+aZzfg75pnN+Dvmmf3tk3MlrPOgbMX"
"rU+yTayB2MaXJrIBAACtT8HgHdaBX4jQioChErG2gX2RtXqw") )
(dcl_form_show lvman_sc_lvman)
(dcl_Tree_AddParent lvman_sc_lvman_tree "DragThis" "DRAG" 0 0)
(dcl_Control_SetDragnDropAllowBegin lvman_sc_lvman_tree T)
(defun c:lvman_sc_lvman_tree_OnDragnDropToAutoCAD (ptPoint intViewport)
                (setq yy ptPoint )
       
                (dcl-sendstring "(tt)")
       
)
        (dcl-sendstring "(c:al-Regen)")
        (dcl-ForceDwgRedraw)
)
(defun tt ()
        (entmake (list '(0 . "CIRCLE") (cons 10 yy) (cons 40 200)))
        (setq y (entlast))
)
;;-----------------------
(defun re ()
        (command "REGEN")
)
(defun c:al-Regen ()
        (vl-load-com)
        (setq thisdrawing
                (vla-get-activedocument
                        (vlax-get-acad-object)))
        (vla-Regen thisdrawing acAllViewports)
        (princ)
)



434939575 发表于 2023-7-6 13:41:58

上传了文件。不知道怎么只能手动刷新才显示出来。

434939575 发表于 2023-7-6 13:48:56

odcl文件,开始发帖没看到传附件。
页: [1]
查看完整版本: 请问opendcl的拖拽动作生成图形必须手动刷新才行